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ABSTRACT 

The solution of some second-order differential equations using the 
method of piecewise Mea eieer ny is examined. These are the undamped 
and damped hard spring equations (linear and nonlinear damping) and the 
Van der Pol and Math teubeqnactcner 

Two methods of piecewise linearization are considered: solution by 
chords and solution by tangents. The two sets of results that are 
obtained are compared to the approximation to the exact solution of the 
undamped hard spring equation. The former method of linearization is 
chosen as the solution to the remainder of the equations that are 
examined. 

Generally, the piecewise linearization solution gives a good agree- 
ment when compared to either the Runge-Kutta solution or the approxima- 
tion to the exact solution (if available). Exceptions to this appear in 
some of the results for the Van der Pol and Mathieu equations. 

The programmed piecewise linear methods are generally slower in 
execution time than either the Runge-Kutta solution or the approximation 
to the exact solution. The exceptions to this are the undamped hard 


spring equation and some instances for the Mathieu equation. 
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I. INTRODUCTION 


Oscillating systems are common in mechanical and electrical 
engineering, as well as in other areas of science such as chemistry and 
biology. These can often be described by using differential equations, 
either nonlinear or linear with time-varying coefficients. 

Exact solutions for these equations are often difficult to obtain 
(if at all), but reasonably good approximations can usually be achieved 
using a variety of methods. Some of the better-known ones are variation 
of parameters [1], reversion [2], and perturbation [3]. 

One method that is mentioned in some textbooks but is often not 
given as much prominence as the others is that of piecewise lineariza- 
tion, the approximation of an equation by one that is linear. This 
approach is investigated in this thesis, applying it to a number of 
second-order differential equations, comparing the results with either 
an approximation to an exact solution (if available), such as [4], or to 
a solution obtained from a Runge-Kutta method [5]. 

What this method does is to approximate the equation being 


examined: 
Kise tix xt) e=e0e, (1.1) 


by one that is linear. The terms corresponding to the damping and 
restoring forces in (1.1) are represented by aoe mi The linear 


equation is that for a mass-spring oscillator: 
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where: 


(e) 
i] 


Coefficient of damping, 


M = System mass, 


ao 
Ul 


Spring constant, 


Undamped natural frequency. 


rc 
i] 


Thee Key=*ts tow approximate the coefficients *of x and “x* in @P.1) by 
constants that would correspond to n and p in (1.2). 

This is done by considering the restoring force-displacement curve 
of (1.1). For a small section of this curve, a straight line could be 
used as an approximation to it over the same region in which this 
section lies [6]. The curve can be thought of consisting of a sequence 
of these small sections, and each will have its own unique linear 
approximation. 

The approximation of (1.1) by (1.2) will only be effective over a 
small interval of displacement or time. The initial and final displace- 
ments of this interval will determine the length of the straight line 
approximation of the restoring force-displacement curve just mentioned. 
The slope of this line will be k in (1.2). If the damping expression in 
(1.1) is nonlinear, c would have to be found by iteration over the 
interval of displacement or time, depending upon the nature of the 
nonlinearity. The solution to (1.2) can now be obtained, using the 
initial conditions for the interval in question. The end conditions of 
this interval become the initial values of the one following, and the 
procedure is repeated with new values of c and k, as well as n and p, 
being determined. 


By successfully solving (1.2) for each interval, an approximate 
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solution for (1.1) can be obtained, approaching the actual one as the 
intervals used become smaller. 

The straight line approximation of the restoring force-displacement 
curve is accomplished by running a chord between the two endpoints of 
the section (Figure 1A) or tangents at the respective locations (Figure 
1B)- These points are located on the curve by knowing the initial and 
final displacements of the interval over which (1.2) is to be used. 
This force is shown in the figure as F and the displacement as x. 

With this in mind, one can now apply this method to specific 


problems, as shall be seen in the following chapters. 
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FIGURE 1 -—'’METHODS OF PIECEWISE LINEARIZATION 


II. HARD SPRING EQUATION (UNDAMPED) 


Ae Preliminary Comments 
One of the simplest examples of the application of piecewise 
linearization is that of the hard undamped spring, the equation of which 


is 


3 
ST heax ot) DX =) 0; (A 6 Ihe Ih) 


where: 


elie) 22 UF (Zea) 


See Figure 2.1 for details [7]. This is considered to be the equation 
for a hard spring since the restoring force increases quicker with 
respect to deflection than if it were linear [8]. The overall time span 
to be considered is the first quarter-cycle, since (2.1.1) is an odd 
function. 


The following initial conditions will be used: 


(Oe nO Casas) 


The cases examined had values for a and b of 1.0 and 0.15 respec- 
tively, and 1.0 and 2.0, respectively, to see how the solutions behaved 


with a low and a high degree of nonlinearity. 


B. Approximation to Exact Solution 
An exact solution for this equation exists, making use of Jacobian 


elliptic functions. The derivations of this result can be found in any 
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one of McLachlan [9], Cunningham [10], or Soudack [11]. This exact 


solution starts with: 
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where: 
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F(A,o) = Incomplete elliptical integral of the 
first kind. 


By applying the assumptions (2.1.2) and initial conditions (2.1.3), 


the, solutions toe (2.10) eisyatoeether witha(2>2.1) [12 lhajiode 


xX = X yen (A wt) + (eZ epaier 28) 


where: 
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At the end of the first quarter-cycle, 9» is T/2. Using the 


definition for some of the terms of (2.1.4), F(,,6) is known as the 
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complete elliptic integral of the first kind, which is given the 
designation of Kn) [14]. But, it is not always practical to refer to 
tables each time one varies a and/or b, and so an easier means of 
obtaining this value should be used. An infinite series does exist for 


2 
this and for a specific value for \ , one can use the following [15]: 
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Ssubstitutineethis forsk() ¢)etne(2.2. 1) [9] p10] 5 (11). for tcalculating 
the period, and combining this with the definition for se to generate 
the solution. Sincem~only [the |first, 100 terms) of) (2.2.4) wills be 
calculated, the solution obtained, which will be used as a benchmark for 
the piecewise linear results, will only be an approximation to (2.2.2) 
[12], [13] and shall be subsequently be referred to as such. 

A method to generate the values for cn(\,wt) is required. One does 
exist, making use of what is known as the “arithmetic-geometric mean” 
approach [16]. The computer program that was used for solving (2.1.1) 
accessed a subroutine library devised by the computing centre at the 
University of British Columbia which uses this method [4]. 


From McLachlan [17], the period of oscillation is: 
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It should be noted that it is necessary to know the solution period as a 
basis for comparing the two piecewise linear methods that are to 
follow. 

The actual solutions obtained by these methods are to be compared 
as well as with the one obtained by this approximation to: the exact 
solutions The curve for the approximation to (2.2.2){4)], [15], [17] is 
obtained by dividing the quarter-cycle into n increments of time (where 
n is an integer) and eaicalacineeene displacement by incrementing the 


value of t by At, which is defined as follows: 


C. Derivation of Piecewise Linear Solution by Chords 

The following method is based on Timoshenko, et. al. [18]. 

Assume that a restoring force-displacement curve for the system 
shown in Figure 2.1 can be approximated by a series of linear segments, 
as shown in Figure 2.2. The force is designated as F, while displace- 
ment is x. Assume further that the initial total displacement is 
divided into m equal sections of length Ax (m being an integer), with 


the total displacement being X., or: 
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FIGURE 2.2 —- APPROXIMATION BY CHORDS 
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Now consider, specifically for (2.1.1), two adjacent points (A and B) 
with displacements Xo and Xp respectively, and times ty and th 
respectively (Figure 2.3). The system is initially at rest with 


displacement Xj, amd then released. For this: 


Xo = Initial displacement of segment 
x= Final displacement of segment 
= x(t,), 


ko = Slope of segment, 


Fo = Restoring force at beginning of segment 
| 
= M(axy + bx, ie 
Fy = Restoring force and end of: segment 


3 
= M(ax, + bx, ys 
x§ = x - axis crossing point for chord, 


M = System mass. 


It can be also seen that: 


Ax = Xo - x 
and: 
k F - 
0) erat ay 
M MAx 
3 3 
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The equation of motion for line AB is (for xy <x Sah 
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FIGURE 2.3 - CHORD SEGMENT CONSTRUCTION 
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Referring to Figure 2.3, the value of x5 is determined as 


follows. AB is extended to the displacement axis (line AC) and the 


ratio of BC to AC is found. This is done by using the point-of-division 


methods from plane analytic geometry [20]: 
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where: 


Differentiating gives the velocity [21]: 
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xX = -pAsin p(t - ty) + pBcos p(t - ty) > 


Consider what happens at the beginning of the segment. The results 


are: 


XQ 7 Ar o=eh COS (Uj) eteoisim pO), 
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Therefore, the general solution for any segment would be [21]: 
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oe 5 - * i = 
Xx B(x, xo) Slabig JD (Ee t4) 
(Zire) 
+ Xo cos p(t - EO) ; 
For any given Xo» the value of ty is the total time taken to 


traverse the preceding individual segments. The question now is what, 
for any given segment, this time would be. From (2.3.2), it can be seen 


that for a given segment, the time taken to go from Xo to x would be 


(t) = to)» where, in this case, ty is the total time taken to reach Xo 


Making the substitution of t, for t in (2.3.2) yields the following: 
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This takes the form of the trigonometric equation [22]: 
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Usingethe derinicions of (223.4). 
Since the various values would have to be found iteratively, the 


quarter-period for this method would be the final value of ti 


D. Derivation of Piecewise Linear Solution by Tangents 

As for the method of chords, the reference for this section is 
Timoshenko, et. al. [18]. 

Referring to the oscillator shown in Figure 2.1, consider now the 
case of the restoring force-displacement curve being approximated by a 
series of linear segments, but using tangents instead of chords (Figure 
264) The force is designated as F and displacement as x. Assume 
‘further that, as before, the length of the segment is Ax. For two 
consecutive segments, specifically for (2.1.1), the construction would 


look like Figure 2.5, with: 


Xq = Displacement at beginning of segment, 
Sip a= Displacement at end of segment, 
x§ = x - axis crossing point for tangent, 


Xco = Point where tangents from Xp and x, cross 
= x(tag), 
Xo, = Point where tangent from x, crosses one 


from endpoint of next segment, 


i x(to,), 
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FIGURE 2,4 -— APPROXIMATION BY TANGENTS 
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FIGURE 2.5 —- TANGENT SEGMENT CONSTRUCTION 


MFj = Slope of tangent line at XO» 


Fo, F, = Same as for method of chords. 


Again, as before for m equal sectors of length Ax (with m being an 


integer): 


In this case, motion is from one crossing point to the next (that 


is, from A to B), and so, the equation for line AB is (for Xa, S =o Xag 
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From Figure 2.5 it can be seen that: 
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The solution to (2.4.1) is on the form: 
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Xeoe karen COSI (ta=at tes COS O{ trate), 
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where: 
p= Fo A 
The velocity is then [21]: 
Xx = -pAsinp(t - tag) + pBcosp(t - tao) 
Using the same method as before, but for t = t the solution 


for line AB is [21]: 


- 2%) cos p(t rei payee) 


0) CO CO 
(254.02) 
+— t-t 
= Sinp(t - ty), 
and the associated velocity [21]: 
xX = “(Xa = Xo) Sanp(t - Lao) 
(254.3) 


Consider now what happens when the system reaches x: In other 
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The first expression takes on the form of the trigonometric 
equation referred to in the previous section [22], with the coefficients 


in this case being: 
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Again,. there are two possibilities for a solution with the same logic 


as before, such that, in this case, the result is [22]: 
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As before, the various segments have their individual values for th: 
and so, the quarter-period is the sum of all of these. 
However, there is a slight difference here, owing to the fact that 


at each point, a tangent is drawn. The endpoints will not have full 


tangent lines, as can be seen by inspection. For the initial 
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displacement, the equation of motion will be: 
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For the end of the quarter period (or x, = 0), the result is: 
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Each Xa 18 found as follows. From plane analytic geometry [24], 
for an x-y plot and two points (4991) and (X55¥5) with the respective 


slopes being: 
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The two methods of solution had used different quantities for 
incrementation: time for the approximation to the exact solution and 
displacement for the piecewise linearization. For the former, time was 
the better of the two, as it is one variable of the argument. For the 
piecewise linearization, it was easier to use displacement, since one 
can readily find the values for Xo» ky» and so on, since these are based 
upon a value for Ax. By using time, this does not become immediately 
apparent, and it would be difficult to determine the end of an interval. 
First the end of the segment would have to be guessed, and all the other 
variables used in the construction of a segment calculated on that 
basis. A variable, such as the current average segment velocity, is 
used as a means of determining the end of the interval by comparing it 
to the previous segment velocity, adjusting the end of the segment until 
there is an agreement, recalculating all the various variables concerned 
each time. This method is long and complicated and would increase the 
cost of the run. Also, the reference of Timoshenko, et. al. [18] 
already had a form of a solution that could readily be applied to this 


situation. 


E. Results 

A computer program was written using the three solutions, and the 
results will now be examined. This was run on the Amdahl 470V/8 at the 
University of Alberta [25], [26]. 

First consider the periods for each solution. It is important to 
consider this now as one is interested in the accuracy of the values 


obtained as compared with those from the approximation to the exact 
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TABLE 2.1 -— UNDAMPED HARD SPRING EQUATION PERIODS 
FOR a = 1.0, b = 0.15 


Approx. to Exact Soln. = 5.9582996/70 


PIECEWISE LINEAR 


No. of 
Divisions CHORDS TANGENTS 

2, 5 .951629401 5 .961481246 
10 DDD 22095 Selah Die Wsys bs 
15 5 -957490299 5 .958695097 
20 5 -957838384 5 -958526637 
25 5 «958002069 5 .958447100 
30 5 -958091944 5 «958403305 
35 5 -958146564 D9 50570033 
40 Bie yey beyess ys 5 -958359186 
45 5 -958206807 5 «958347149 
50 5 -958224456 5 «958338494 
55 5 .958237560 3» 959932002 
60 5 -958247556 Sy ee SEA ilo 
65 De 0255950 3 9909255160 
70 De) sxeyaees) eye) 5 6958320265 
TS) 5 «958266573 D2 oS ino 
80 5 -958270684 DEE EM SIE 
85 5 «958274097 5 .958314090 
90 DeI0o27 070): 3 9D 05L2678 
)s) 5 «958279389 5 .958311481 
100 5 .958281464 5 958310457 
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(which uses the routine described in [4]). The first 100 terms of 
(2.2.4) were calculated for this. Initially, a low degree of nonlinear- 
ity was examined, with the results on Table 2.1. One can see, as was 
originally stated in the introduction, that as the number of segments 
gets large, the solution by chords and by tangents slowly approach the 
same value. Further evidence of this can be seen in Table 2.2, where 
the nonlinearity is more pronounced. 

In theory, then, one could keep decreasing the size of the incre- 
ments, and the periods would slowly converge to that of the exact solu- 
tion to as many significant figures as is needed. The only limitation 
to this accuracy would be the execution time for the program, as each 
set of calculations will add to the run cost. 

It should be noted that the period for the approximation to the 
exact solution was obtained as explained earlier in this chapter, while 
for the piecewise methods, the final value of t, was multiplied by 4. 

An evaluation of the methods will be helped by examining the 
solution curves. The program that produced the results for Tables 2.1 
and 2.2 also drew a plot each time it looped through, using the number 
of increments that was in effect as a basis. 

The plots can be seen in Figures 2.6 through 2.9. A few comments 
should be made concerning the results. A good agreement to the approxi- 
Mmationustomthe sexacte solutions |4 milo} el) CLOte deom ll. Omandmpe—s0.t >) 
is obtained by both methods for 5 increments (Figure 2.6) and with 10 
(Figure 2.7). Here one can hardly detect any difference between the 
piecewise method results and that of the approximation to (2.2.2) [4], 
(15 [pelady jeweeAss one) mightususpect = tore ag= a.Jmand mbes. Ope riciremZ.0 


shows that there is a discernable deviation from the solution being 
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TABLE 2.2 - UNDAMPED HARD SPRING EQUATION PERIODS 
FOR a = 1.0, b = 2.0 


Approx. to Exact Soln. = 4.004308722 


PIECEWISE LINEAR 


100 


4.004229175 


No. of 
Divisions CHORDS TANGENTS 
3) 3.976017631 4.005261005 
10 3 .996812433 4.007978008 
15 4.000907203 4.005978416 
20 4.002378678 4.005261005 
25 4.003061288 4 .004923996 
30 4003438030 4.004739061 
SY) 4.003666618 4 .004626708 
40 4.003815695 4.004553357 
45 4.003918296 4.004502829 
50 4.003991920 4.004466543 
55) 4.004046539 4.004439606 
60 4.004088177 4.004419059 
65 4.004120645 4.004403028 
70 4.004146464 4.004390280 
i 4.004167307 4.004379975 
80 4.004184398 4.004371526 
85 4.004198581 4.004364513 
90 4.004210479 4.004358627 
2h) 4.004220560 4.004353639 


4.004349375 
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FIGURE 2.6 - SOLUTIONS TO HARD SPRING EQUATION 
(UNDAMPED) FOR a = 1.0, b = 0.15, At = T4/100.0, 
Nxt = 0.20%, “x(0)e=" 10>. x(0) = 0.0 


(NoBase Approximation to’ exact solution uses [4],9 [la] [l7 ie) 
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FIGURE 2.7 - SOLUTIONS TO HARD SPRING EQUATION 
(UNDAMPED) FOR a = 1.0, b = 0.15, At =T, ,,/100.0, 
Ax = 02106 260) "= 91-205. x(0) =.030 


Approximation to exact solution uses [4], [15], [17].) 
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FIGURE 2.8 - SOLUTIONS TO HARD SPRING EQUATION 
(UNDAMPED) FOR a = 1.0, b = 2.0, At = 7, 74/100.0, 
Axt 0.20, /x(0)us 0.8 (Oa = 0.0 


(N.B.: Approximation to exact solution uses [4], [15], [17].-) 
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FIGURE 2.9 -— SOLUTIONS TO HARD SPRING EQUATION 
(UNDAMPED) FOR a = 1.0, b = 2.0, At = Tt /4/100.0, 
A=. 109ex(0)8= "208% (0)8= 000 


Approximation to exact solution uses [4], [15], [17].) 
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compared, since the degree of nonlinearity is considerably higher than 
in the first case. This does not appear in Figure 2.9, where 10 incre- 
ments were used. 

A question that should be raised is concerning the actual execution 
times involved, since, when choosing a method of solving these sorts of 
problems, one must strike a balance between required accuracy to the 
solution being compared and the cost of the run. This was done by 
taking the original program and modifying it by stripping it of all 
non-essential operations with only the actual calculations remaining, 
and then utilizing a timing subroutine available through the library of 
the computer system, and calling it for each solution [27]. The results 
are seen on Figures 2.10 and 2.11. It should be noted here that these 
results were obtained with an older and somewhat slower version of the 
the program, but they should serve to illustrate the relative execution 
times. It should also be noted that these results were obtained with an 
Amdahl 470V/7 [25]. This difference in the computers was due to an 
upgrading of the original 470V/7 model to a 470V/8 done while the 
research for this thesis was being carried out [26]. The author reran 
the timing program and found that the results were about 10 percent 
faster with the V/8 than the V/7. Also, with some further minor 
modifications to the program itself, the author estimates about another 
10 percent can be taken off the original times. 

By inspection, one can see that the actual distance travelled by 
the system using the method of chords would be somewhat less than that 
using tangents. Already this implies that the period would be greater 
using the latter method than the former when comparing it to that 


obtained by using the results based on the exact solution. That would 
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FIGURE 2.10 - EXECUTION TIMES FOR SOLUTIONS TO HARD 
SPRING EQUATION (UNDAMPED) FOR a = 1.0, b = 0.15, 
x(0) = 1.0, %(0) = 0.0 [27] 
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FIGURE 2.11 - EXECUTION TIMES FOR SOLUTIONS TO HARD 
SPRING EQUATION (UNDAMPED) FOR a = 1.0, b = 2.0, 
m0 e=els 0, ex CO)=— 0. Omi 7 


explain why, when b was 2.0, for example, one obtained a difference in 
the displacement on the higher side using tangents than chords. 

Another question is why the timing results for the approximation to 
the exact solution [4], [15], [17] should be considerably higher than 
that for the piecewise methods. A word of explanation concerning the 
program will clarify this point. The execution times were obtained by 
calculating the first 50 terms of (2.2.4)[15] and then generating the 
solution results, prior to increasing the number of segments and looping 
through the calculations once again. This was done to determine the 
total time required to obtain a solution for a given Ax, thus allowing 
comparison with the other methods. This required that the subroutine 
that calculated (2.2.4)[15] had to be called each time. 

Since more calculations are necessary for each segment for the 
method of tangents, it would be expected that the execution times would 
be greater for this solution than for the method of chords. 

In any case, the results for the piecewise methods are impressive 
when one considers that for this problem, it would appear that an 
accurate solution can be easily obtained by using either method, with a 
relatively small number of segments, and that it is faster than the 
solution that was chosen to be the standard one [4], [15], [17]. One 
can conclude that for this problem, the piecewise method would be the 
recommended one to use, particularly the method by chords. 

Because the method of chords was easier to manipulate and converged 
faster to the approximation to (2.2.2)[4], [15], [17], it was chosen to 
be the method of piccewise linearization for the remainder of the thesis 


and will subsequently be referred to as such. 
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III. HARD SPRING EQUATION (LINEAR DAMPING) 


A. Preliminary Comments 
Most physical systems involve dissipation, and an example of this 
is the system described in the previous chapter, but with the inclusion 


of a simple form of damping in which it is linearly related to the 


velocity: 
e c 
xX + ri + ax + pe S16) (Stelyenle) 
where: 
c = Damping constant, 
M = System mass, 
a,b = Restoring force factors, as used in 


Chapter II. 


The system is shown in Figure 3.1 [28]. 

Since there is no exact solution and approximate methods such as 
those mentioned in the first chapter are beyond the scope of this 
thesis, a Runge-Kutta solution [5] has been chosen to be the standard by 
which to judge the accuracy of the piecewise method. 

For convenience, it was decided to restrict the cases examined to 
underdamped conditions. 

The values for a and b are the same as in the previous chapter, 
while = will have the values of 0.0, O.1, and 0.25 which should “give a 


M 


good representation of an underdamped case. 
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FIGURE 3.1 — MASS-SPRING SYSTEM (LINEAR DAMPING) [ 28] 
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Be Derivation of Piecewise Linear Solution 

Since the piecewise linearization method by chords had been chosen 
to be the means of solving the equations for the remainder of the 
thesis, and much of the background derivation is exactly the same as 
before, only the results of this plus the derivation of new material 
will be shown in this and subsequent chapters. 

Recalling the development of thé method by chords and using the 


same initial conditions and notation as in the previous chapter, the 


following equation results for a linear segment [19], [29]: 
2 k 
d Cr. 0 
—=— ade * a —= faa * = 
(x x5) + ux + M (x x6) OF 


ace 
ky = Slope of chord line, as in Chapter II, 
where x, Xo» and X are the same as before and are found in the manner 
previously described in Chapter II, Section C. The solution to this 


system is now the familiar [29]: 
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Differentiating (3.2.1) yields the velocity [29]: 


-n(t - t_) 


Seme ° [ (p*B - nA) cos p*(t = t,) 
(3262) 
+ (-nB - p*A) sinp*(t - all ; 
with the various coefficients as before. 
Solving for te at requires the use of a Newton-Raphson method, 


since there does not appear to be a simpler way of finding this quantity 


such as that used in the previous chapter. This would be [30]: 


se = aad 


Reap sateen’ 
Oe SALI fe ale 


1 <0 


However, as the displacement approaches the first trough, the 
velocity approaches zero, and consequently the method as defined would 
break down. But, since this can be set up in a computer program, a 
check can be run such that when the denominator becomes very small 
(corresponding to a small speed) the Newton-Raphson relationship can be 


redefined as [30]: 
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“{( (-pe? + ate - 2np*B |cos Bree = la 


+ [2np*a + (-p*? rt n*)B Jsinp*[(t, - eh ' 


with the coefficients the same as used for (3.2.1) and (3.2.2). 

Also, there is the likelihood that the first trough to be 
encountered bottoms out in the middle of a segment, which poses another 
problem as to how to determine exactly where this occurs. First Lie Ea 
is found as before (with the eed Newton-Raphson relationship being in 
effect as well as x will approach zero). The appropriate value for the 
displacement is found, and this is compared to what the particular xy 
would have been. If the difference between the two values is small, 
then the iterations stops. If not, this x becomes the new Xp and new 
end conditions are found with the iteration continuing using t oe ayo 


The half-period, then, would be the final value of Be 


C. Runge-Kutta Solution 

The Runge-Kutta numerical method used throughout this thesis is the 
routine DVERK from IMSL [5]. Since it was in a system library, it was 
easily accessed by the program written to solve this situation. The 
basis of the method is an approach using approximations described in 


this reference. 


D. Results 
A computer program was written that included the piecewise linear 


solution, complete with the necessary subroutines for calculating the 
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FIGURE 3.2 — SOLUTIONS TO HARD SPRING SOEs) 


(LINEAR DAMPING) FOR a = 1.0, b= 0.15, [= 0.0, 


Axe= OslOsAte= 0.05 x(0) = 1.0 xt0) =n0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 3.3 - SOLUTIONS TO HARD SPRING EQUATION 
(LINEAR DAMPING) FOR a = 1.0, b = 2.0, 7 = 0.0, 
Ax = 0.10,,At = 0.05, x(0) = 1.0, x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 3.4 - SOLUTIONS TO HARD SPRING EQUATION 
(LINEAR DAMPING) FOR a = 1.0, b = 0.15, = = 0.10, 
Ax = 0.10, At = 0.05, x(0) = 1.0, x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 3.5 —- SOLUTIONS TO HARD SPRING EQUATION 
(LINEAR DAMPING) FOR a = 1.0, b = 2.0, = = 0.10, 
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Ax = 0.10, At = 0.05, x(0) = 1.0, x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 3.6 — SOLUTIONS TO HARD SPRING EQUATION 
(LINEAR DAMPING) FOR a = 1.0, b= 0.15, . = 0.25, 
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(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 3.7 - SOLUTIONS TO HARD SPRING EQUATION 
(LINEAR DAMPING) FOR a = 1.0, b= 2.0, S = 0.25, 
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(N.B.: Runge-Kutta solution uses [5].) 
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various parameters like x5? as well as the input parameters and call to 
DVERK [5]. The results were obtained by running the program on the 
Amdahl 480V/8 [26] described earlier. 

As a first trial, to see if the program functioned, it was decided 
to check if the solution would work for the simple case of being zero 
for the sets of values for a and b as described earlier in the chapter, 
and Ry being taken to be 1.0. The results of this are seen in Figures 
3.2 and 3.3, using a value of Ax of 0.1, and a time increment for the 
Runge-Kutta solution [5] of 0.05, the sizes being chosen arbitrarily, 
but still sufficiently large to allow any problems concerning stability 
arise. 

From Figures 3.2 and 3.3, it is obvious that the program works for 
the undamped case, as the correspondence between the two solutions is 
good, and there appears to be little problem in the piecewise linear 
method bottoming out at the first trough. 

Now for solving the equation using non-zero values for = The 
results for this can be seen in Figures 3.4 - 3.7. For each plot there 
seems to be a good correspondence between the results obtained for the 
piecewise linear solution and the Runge-Kutta procedure [5], which 
implies two things. One is that the method of solution using the 
piecewise linearization by chords gives a good agreement with the 
Runge-Kutta approximation [5] of this equation. The other is that for 
even a somewhat large increment of displacement, the piecewise linear 
method gives a good result, and that it is not necessary to go to a 
smaller value to get an accurate solution. This has an advantage as far 
as the economics of the runs are concerned. 


As before, the program was stripped down to the essential 
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calculations and the execution times for each method of solutions 
Obbalped gallo |i. Again, it should be noted that these values were 
acquired with an older version of the plot program that was slower and 
that this was done on the V/7 version of the Amdahl 470 [25], [26]. The 
results can be seen in Figures 3.8 - 3.10. 

Before continuing, an explanation is necessary concerning the 
timing results. As mentioned earlier, the piecewise method used an 
interval of displacement while the Runge-Kutta method [5] made use of 
time. For the purposes of determining correspondence between the two 
solutions, this would be sufficient, but this would not be valid for 
comparing the execution times, since Ax and At would scarcely provide 
any means for judgement between the two methods. However, the number of 
divisions (or overall iterations) for the first quarter-cycle would 
possibly be a benchmark. To an extent, this was done for the piecewise 
method, since the system initially had a known displacement, and Ax was 
chosen from that. 

For the Runge-Kutta method [5], a similar approach can be used 
based upon the first quarter-period as calculated by the piecewise 
method. This timespan can be divided into the same number of intervals 
as was used by the first solution, and the execution time is obtained 
with the new value for At. 

The timing program kept track of the number of points calculated by 
the piecewise solution (including the first trough, which generally 
falls inside an interval) based on Ax while the Runge-Kutta routine [5] 
calculates this same number of points, but using the new At as was just 
described. This should give a reasonable correspondence to the piece- 


wise solution except that the Runge-Kutta method [5] will likely go past 
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the first trough as before. 

One might expect a linear relationship between the execution time 
and the number of divisions of the first-quarter cycle. Since the 
Runge-Kutta solution [5] is from a packaged program, presumably it 
should be as efficient as possible, which would be a _ reasonable 
explanation as to why the execution times for it are lower as compared 
to the piecewise linear method. However, what is of note is what 
happens at 5 divisions. 

For some of the runs, no values were obtained, as the execution 
time limit that had been set prior to the run had been exceeded. 
Attempts to restart the program by adding additional seconds to bring 
the total execution time limit to at least 15 seconds failed to give 
results [31]. Some clue may be available from those runs that used what 
may appear to be excessive run time values. 

For runs, such.as—for, a = 1.0, b = 0.15, and ; = 0.25, the points 
are far off the line. This may indicate that there could be a lower 
limit for which either solution would work (or be economical), as from 
what was obtained, one can see that the Runge-Kutta [5] took longer to 


finish at this point than the piecewise linear method, which was not 


expected. 
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IV. HARD SPRING EQUATION (NONLINEAR DAMPING) 


Ae Preliminary Comments 

This situation is essentially the same as that examined in the 
previous chapter, with the exception that the damping is no longer 
linear, but is related to the square of the velocity. The solution for 
the linear segments is the same, but the means by which it is obtained 


are slightly different. The equation considered is: 


: Se : 
¥ + 1a sgn (%) + ax + bx? = 0, (4.1.1) 


where: 


q = Nonlinear damping constant, 


M,a,b = as used in Chapter III. 


This equation describes the system shown in Figure 4.1 [28]. 

As in the case of equation (3.1.1), no exact solution seems to 
exist, and so the same Runge-Kutta solution [5] was used as a basis for 
comparison. The same values for a and b were used, while the values for 
were 0.0, 0.1, and 0.25, restricting the investigation to the under- 
damped case. The same initial conditions were used, with i equal to 


1.0. 


B. Derivation of Piecewise Linear Solution 
The derivation for the equation of the linear segments is exactly 


the same as was described in the previous chapters, using essentially 


the same method to find the necessary factors such as xf and PA: A 


c 
slight modification in the procedure to determine the damping constant y 


58 


rey bones : 
digest asta Baten nal ie 
jot sobsulon ‘sift een aie , 
Sere tates ic coe 


ye 


2a beri, aries eft esausetid:< 


IT .t¢e} soho! Sed ~~»? coy mga “(RIE * 


treteoos efiqust taapkings’ = p Lé 


= po 
AES sosqes! of bene ae Pete hs 


fu) Tetowsagh! at sent wapere 987 bad Rte welinepe 
2 
43 “GiWee notandcg sankenso gai /0) aobaeepe Je eee ata sl oA. 


ved staat = u> Seba’ adv i2) nobtuice adsvA-egeud pase of) of bas iixe 
we geulay afd wlirce psen asa®-4 -bhe 1 wet eoulov seae anT ao aiiiad 
—snba @H) 0° anh bag naan wel eatosteies: ,25,0 baw ,1.0 00 


| as Coupe a* dele . 660m Sev amnicehaoy Lotsind aman ett = «O08: eqn’ 


sotanin? vascit esiveas?? Ip | 
ledgers ac teheengens 260: 
arsenate sede Sete 
; eh ; ant ent Gets gt 4 pte 


NONLINEAR 
SPRING 


NONLINEAR 
DAMPER 


FIGURE 4.1 - MASS-SPRING SYSTEM (NONLINEAR DAMPING) [28 ] 
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is required as it changes in value from one segment to another. Since 
it is desired to obtain a solution whose form is similar to that of 
(1.2), the expression for the damping as given in (4.1.1) is replaced by 
an equivalent one resembling what was seen in (3.1.1), or, in other 
words, a linear approximation over a small increment of displacement 

The starting point for this is part of the problem. One possi-~ 
bility involves an iteration within an iteration in order to obtain an 
average value of the vedere a and thus the damping force. This is done 
as follows. 

At the beginning of motion, no damping is assumed, and the form of 


the equation is taken to be [19]: 


From this, an end velocity can be found. This is averaged, and a 


damping coefficient is determined using: 


Xay = Average segment velocity. 


The iteration is done again, with the same initial conditions, but the 


equation now becomes [19], [29]: 


Now the current velocity is calculated and compared with the previous 
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final value. If their difference is greater than a given tolerance, the 
iteration starts again, with a new damping coefficient calculated from 
the average segment velocity, based upon this new final speed. Once 
this tolerance is achieved, the end conditions become the initial 
conditions for the next segment, and the entire procedure starts again 
as before, except now for all subsequent segments, the new initial 
velocity is used each time. 

Since the derivation is the same as before, thé solution will 


essentially be identical to that of the previous chapter [19], [29] or: 


an (tame) 
Xx = x5 +e [Acos p*(t = ty) 
(45202) 
+ Bisimp*(te- aad ; 
sniteoot,) 
<a—e [ (-naA + p*B) cos p¥*(t - ty) 
(ase) 
=—"(pvAy + nb) sinp*(c — to P 
where the coefficients were determined as before, and are: 
A= Xo 7 a ES 
J ae ies * 
Ee Xo n(X4 x5) 
= = ; 
n= 
2M ° 
The values for t, - tg were calculated using the Newton-Raphson 


method [30], and are subject to the conditions described in the previous 
chapter, including the procedure for finding the point at which the 


system bottoms out in the first trough. 
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C. Results 

The equations for the piecewise linear solution and the required 
commands to use DVERK [5] (including parameters and the calling 
statement) were assembled into a computer program, and solution plots 
generated by running them on the Amdahl 470V/8 [26] mentioned earlier. 
The size of the displacement increment used by the piecewise linear 
method was the same as the one used in the previous chapter (Ax = 0.1), 
as well as the same size of time increment for the Runge-Kutta method 
bee CeO. 05) 

The results of the computer plot program that calculated both 
solutions can be seen in Figures 4.2 - 4.7. Once again, one can see 
that a good agreement was achieved, even when using a fairly large value 
for Ax, and it would seem from the output that the piecewise linear 
method successfully calculated the location of the first trough. It can 
be concluded from this that the parameter values and the size of the 
displacement interval were sufficient to give satisfactory results for 
the given conditions. 

The program was stripped to the essential steps that contained only 
the calculations and the execution times were determined for it [27], 
which should give one a reasonable estimate as to the relative speeds 
(and hence, the costs) of the two methods. er the previous chapter, 
the basis of judgement was the number of divisions of the first 
quarter-cycle. This was because the piecewise linear solution used an 
increment of displacement, while the Runge-Kutta method [5] required 
increments of time. 

The values obtained are to be found on Figures 4.8 - 4.10, and were 


taken from tests conducted on the Amdahl 470V/7 [25], using an older and 
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FIGURE 4.2 - SOLUTIONS TO HARD SPRING EQUATION 
(NONLINEAR DAMPING) FOR a = 1.0, b = 0.15, Z = 0.0, 
Ax(0)) = 00elOeeAraet0205 50 x(0)) = 11-0 ex( Om =n 0 


(N.B.: Runge-Kutta method uses [5].) 


64 


1.0000 bee 0.1500 
q/M = 0.0000 


So AA eee helo 


PENEAR IZA TUN ==) 8.1000 
4t (RUNGE-KUTTA) = 0.0500 


(Clea 0000 MOS 0. C000 


=—— RUNGE-KUTTA 
OTP ECEWISE EINERRIZRI1ON 


nodiun =< 
| nanos ¢ edad at 
a a) 
oAjo. f-=- tow 1000.1! = (94s 


a res SOME —s 
WETRETHRIMI 4 SRI rai" ft 


A a A SO ee 


a a ee 


hs 2.0000 

iM o.00n9 

wis 

+ ipfeseuree 
LIMEZARIZATION) = a. {cde 

at i AUNGE- RULIA) @ 6.0800 


(TO) = 1 ONC iC? s €.060 


— HINGE « aii? TR 
a) @ = ~~ - 
wi eCrwW Sec 7 Ft? on ) 
_ - — a — —— os. & a 


HOMTANes onigee COM OY -BhOITUIN? - £.4 sHyoTe 
mir | a-s—~O. | * 2 D. " 6 Ge (a Lm Ac BAA! AMOw) 


4 


C “ i Foal ait @ (Ove o4) A a ‘ 0 « 
oh ie? = (Oke 


Lt 


Le] aGy boty £74varepenlt +h. 4) 


FIGURE 4.3 - SOLUTIONS TO HARD SPRING EQUATION 
(NONLINEAR DAMPING) FOR a = 1.0, b = 2.0, 4= 0.0, 
AxCO)M=EOs 10 mete 0305. -x(0)) 80 ex (Oman Oe 


(N.B.: Runge-Kutta method uses [5].) 


1.0000 bea e000 
q/M 2 9.0000 


Me Wie Same 
LINERRIZATIGON) = 0.1000 


at (RUNGE-KUTTA) = 0.0500 


¥(O) Ss 1.0000 x( O52 0.0000 


~— RUNGE-KUTTA 
© PIECEWISE LINERRIZATION 


i=] 
Oo 
ea 
i] 
5 


~0.80 ~-0.40 


-0.80 


~1.20 -1.00 


66 


ts se 
ogi Be 


s1ng.8 = ie 


5 T 


iw 


ee 


3379) 
ieeast ie} 
TUN-SOMERY Ja 


Luue. | = toi. 


Tun SCureh —_ 


wHIWHI3IA © 


. rf 
; wAMY UMERGe Tene TMeROTTOOE ~ 34 qets: 
40549 @ rt <2 2) @~\e8 SOF COMiwAd tasrtiver’ 
o.f a » thes * ipve yaad 2 ee’ = (OSa 


' Col€) aman NGiliee sapttaam? § :.8. yi) : 
‘ 


. 


FIGURE 4.4 - SOLUTIONS TO HARD SPRING EQUATION 
(NONLINEAR DAMPING) FOR a = 1.0, b = 0.15, 4 = 0.10, 
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FIGURE 4.5 - SOLUTIONS TO HARD SPRING EQUATION 
(NONLINEAR DAMPING) FOR a = 1.0, b = 2.0, 2 5S Osi), 
Ax(0) = 0.10, At = 0.05, x(0) = 1.0, %(0) = 0.0 


(N.B.: Runge-Kutta method uses [5].) 
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Ax(O)@= 00s Oeste =20.05-6x(0)=ul 0 .eex( 0 man Oe0 


(N.B.: Runge-Kutta method uses [5].) 
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FIGURE 4.7 - SOLUTIONS TO HARD SPRING EQUATION 
(NONLINEAR DAMPING) FOR a = 1.0, b = 2.0, d= 0.25, 
Ax(0) = 0.10, At = 0.05, x(0) = 1.0, %(0) = 0.0 


(N.B.: Runge-Kutta method uses [5].) 
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17. 


slower version of the program. 

Once again, it was found that the time required was linear with 
respect to the number of divisions per first quarter-cycle. As before, 
for 5 divisions of the first quarter-cycle, problems were experienced in 
obtaining a reasonable execution time for either result, depending upon 
the value of b and 2 (since an increase in either or both caused the 
program to exceed its pre-set execution time limit ey pL This leads to 
the same conclusion as before that there may be a lower limit to the 
number of points that can be used for either method to be effective or 
economical. One of the things that was surprising was the lowering of 
the execution time for the piecewise method for a = 1.0, b= 2.0, and = 
= 0.0. This could be regarded as coincidence, unless there was some 
factor in the computer system itself that may have led to this which is 


not immediately apparent. 
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V. VAN DER POL EQUATION 


A. Preliminary Comments 

The methods of solution described in the previous two chapters gave 
stable results since, when the damping factors were varied over a large 
range for the underdamped case, no erratic behaviour or improbable wave 
forms were encountered. In this chapter, however, an equation will be 
examined that is different in that the term representing its resisting 
force varies with respect to both the displacement and the velocity, its 
solution curve varies radically as a parameter is varied over a wide 
range, and its phase trajectory exhibits a limit cycle. This is Van der 


Pol's equation [32]: 


haa ayhe = he oo So (Sere) 


The solutions to the linear equations are essentially the same as 
were found in the previous chapters, except that instead of being 
restricted to only the underdamped situation, the critically damped and 
overdamped cases are solved for as well, owing to the nature of the 
SOLUCLOMmtOm oe lc li). 

Owing to the wide variation in behaviour that this equation can 
exhibit, the initial conditions will be the same as had been previously 
used with the exception that Xo will vary in value to allow investiga- 
tion inside, on, and outside the limit cycle. The parameter UL will have 
Enemvaiiesm0s2 556 leew.) , ands. 0nsOmLnate the mVvatleallonsmine thegso lus 
tion curves can be examined. 


While the previous systems had nonlinear restoring forces, (5.1.1) 
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does not, and so, this will mean that many of the calculations that were 
needed in order to set up the solution to the linear equation are not 
needed in this situation. This also means that an interval of time can 
be used instead of displacement with resulting simplification in the 
calculations. 

Since an exact solution does not seem to exist, the same Runge- 
Kutta solution [5] that had been used in the previous two chapters will 
be the benchmark against which the piecewise linearization will be 


compared. 


B. Derivation of Piecewise Linear Solution 
Equation (5.1.1) can be approximated over a small increment of time 


by the equation [29]: 


# + 2nx + Be =O, (Sicily) 
where: 
2 
xeo= oh 
ns ( 5 , (S22) 
2 
p = IL 6G, e 


The solutions of (5.2.1) can be found in texts (for example, 


Timoshenko, et. al. [29]), and are as follows. 


For p* - n* > 0 [35], [36]: 


aN ° 


NX Xy 
xX = e "* [x cos ptt + an cnee sin p*t | ; (5ieaie3 ) 
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2 =n(nx, + x_) 
x =e glee cos p*t + L = e 
(572.4) 
- seers ; 
p* = a 2 n? 
2 2 
FOrap =n “= 0 [36]; [Sale 
ox, Sos 3" : 
f= 2 faaente(nxnetrh) CH 6 (53225) 
° sore 
k=eP Cex, a 2) 2 = fein) (251226) 
z 
For p? - n° <0 [36], [37]: 
x = e "*[x, cosh (p**t) 
: (5.257) 
nx, + X 
+ | sinh (p**t) | , 
x -n(nx. + xX.) 
x =e S (cosh (p**e) F festionarn 
7 edhe: ; 
(S.200) 


The major problem here is how to estimate n. Assume at the begin- 


ning of a segment some initial conditions of Xo and Xo » and a time 


interval of Atp- Anvinitial@ecuessmwouldwuse =x sifor xeins(5.2.2) sandean 
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initial estimate of the change in displacement is calculated (which will 
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FIGURE 5.1 - TYPICAL INTERVAL LAYOUT (VAN DER POL EQUATION) 
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be explained further on). The new displacement x} is Xo + Ax, and this 
is compared to a previously calculated value of Xy (Xpppy)> Should the 


difference between x anda be very small, x is the final 


uh PREV 1 


displacement at the end of Atp- ienot. x, becomes Xppry» X now is Xq + 
Ax/2, and a new n is found, as well as new values for Ax and x. Figure 
5.1 should clarify matters. 

This is how the solution is carried out in general for each 


interval. At the beginning of the iteration, 


By Initial time, 

to + At, = Final time 
= tj, 

Xg = Initial displacement 

XQ + Ax = Final displacement 
= x1, 

Xo # Initial velocity, 

xy = Final velocity. 


Once the displacement approaches either a peak or trough, a varia- 
‘tion in this pattern is introduced to find the time and displacement at 
these points. (See Figure 5.2 for details.) The procedure is as 
follows. Starting at Xo and ty x, is found as before. The value of 
sen(x, ) is calculated, and if found to be different from sen(x 4), At, 


(the time taken to reach %14) is found by determining the time interval 
needed for x to reach zero using a Newton-Raphson method [30], starting 


at X>- This assumes that x not zero at the end of a complete segment. 


Should it be, this section is circumvented. 


The value for X11 is found by iteration much like the bottom of the 
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FIGURE 5.2 - LAYOUT OF PEAK OR TROUGH (VAN DER POL EQUATION) 
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first trough was determined in the previous two chapters. The estimated 
value is Xo with the first guess being X,5° Then, using At,, a change 


in displacement is found (a new Ax). The value of (XG me (Nee) re Xo is 


determined, and if very small, x Tspedialy tome ata xs een enol sn ety x 


12 0 0 


becomes x, and the iteration starts again. 

This completes the first half-cycle. 

Since the peak or trough is most likely not going to occur at the 
end of a time interval, and it would be convenient to find the 
displacement at the end of Atp (in order to continue afterwards with 
even time intervals until the next peak or trough), x is found based 


a2 


upon At with the remainder of the half-cycle as was previously done. 


p? 
The displacement-time curve and phase-plane diagram can now be 
obtained. 

It is necessary to go through this procedure as one never knows ‘in 
advance how long the system takes to reach the limit cycle, since it 
depends upon the value of as well as the initial conditions. So, for 
convenience, the number of half-cycles that had been calculated will be 
monitored and the calculation stops once the required number had been 
achieved. 


When the displacement approaches a peak or trough, At, is deter- 


mined using the Newton-Raphson method [30]: 


eC (at) J 
#[ (At) , | 


(At), = (At); > 


where x[(Ajt).] is the expression for the velocity (which particular one 
i 
os 2 ee F 
would depend upon what value p - n has), and x[(At), ] is the accelera- 


tion for that particular situation. 
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The following approximations to the velocities and accelerations 
are used, based upon Timoshenko, et. al. [34]. 


For p*.- n* > 0 [35], [36]: 


earn i tes) 


: | i 
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During these calculations, the value of n is found, and this 
ultimately determines what the solution for the segment will be. The 
change in displacement, Ax, is found by finding (xy ce Xq)s corresponding 
to the appropriate value of n. Since equal time intervals are used, Atp 


is used instead of t in equations (5.2.3) - (5.2.8), where At, =t t 


ih Ge 


(based on the functions being dependent upon t - t, instead of t, due to 


0 


the piecewise linearization). 


C. Results 

Equations (5.2.3) - (5.2.14) were assembled into a computer pro- 
gram, as well as a Runge-Kutta solution using DVERK [5], and the results 
obtained by running it on the Amdahl 470 V/8 [26]. 

Initially, the approximation was tested by using a small value for 
yu as a check that it worked. This was arbitrarily chosen to be 0.25 and 
was tested for X, being equal to 1.0, 2.0, and 2.5 with At, for the 
piecewise linearization being equal to 0.2, and the Atp, for the Runge- 
Kutta solution [5] being 0.05. The size of the time intervals was 
chosen arbitrarily. The results are seen on Figures Deo — moots (All 


solutions and phase trajectories in this chapter are based on [38], 
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FIGURE 5.3 - SOLUTIONS TO VAN DER POL EQUATION FOR 
fo Oe2 55 Atp = 0.20, Dees = 0.05 x (0) m=. 0, 
*(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38].) 
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FIGURE 5.4 - PHASE TRAJECTORIES FOR VAN DER POL 
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(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].) 
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FIGURE 5.5 - SOLUTIONS TO VAN DER POL EQUATION FOR 
u = 0.25, At, = 0.20, at, = 0.05, x(0) = 2.0, 
%(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38].-) 
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FIGURE 5.6 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR uy = 0-25, At, = 0.20, At,, = 0.05, 


x(0) = 2.0, x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. 


Diagram 
based on [39].) 
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FIGURE 5.7 - SOLUTIONS TO VAN DER POL EQUATION FOR 
= 0.25, At, = 0.20) Ato = 0.05, x(0) = 2.5) 
%(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 


based on [38]-) 
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FIGURE 5.8 -— PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR u = 0.25, At, = 0.20, At, = 0.05, 


x(0)ean2e 5s x(0) a= ne 


(N.-B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].-) 


0.2500 
Siete ernioe 


LINEBRIZATION) =0.2000 
SUR UNGEK Othe ea 0.000 


2.5000 EOD ves MO 870) 805) 


——— RUNGE=KUtT 
© PIECEWISE LINEARIZATIGN 


99 


+e st a ‘ 
ee 


va + 
CUGGD & CAITR ROROND 4 
ponte: = tha «Ooo. t = tty 


AOTIACANSNT. WM OD. 


[39]-) The development of the limit cycle can be seen in the phase- 
plane diagrams and there appear to be no major difficulties in achieving 
the desired results. As expected for an initial displacement outside 
the limit cycle, the solution moves in towards it, while moving out to 
it when Xj is inside it. Even for the initial displacement being on the 
limit cycle, there seem to be no problems. 

The next thing was to increase the value of uL while keeping the 
values of the respective time intervals the same. It had also been 
decided to restrict the remaining investigation to the situation of the 
initial displacement outside the limit cycle, except for U of 5.0 where 
Xo will be varied as had been done for U of 0.25. 

Thegcresulcs Of thismcan be? seeniin’ Figures 5.0-—) 5. L Om) 50 Peo. 
but something unusual appears in Figures 5.13 - 5.18 [38], [39]. Up to 
this point, the plots had given good fits to the solution being compared 
(with some minor deviations for U of 2.0), while for these curves, this 
does not seem to be the case. Immediately the piecewise linearization 
was suspected to be at fault and both the derivation and the computer 
program were checked several times. Nothing that could introduce what 
would appear to be a phase difference was found. Internal roundoff 
error in the computer was also suspected, and the tolerances were reset 
to smaller values and, as far as possible, the program was reset to 
operate in double precision. But, the results were still the same--a 
phase difference, or what appeared to be as such, somehow arose in the 
system. 

A smaller time interval of 0.05 was tried for the piecewise linear- 
ization, with the results for x(0) = 2.5 and y = 5.0 to be seen in 


Eigaresmo.s19mand =5.20)4[50],. [37.)- This seems to be the key to the 
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FIGURE 5.9 - SOLUTIONS TO VAN DER POL EQUATION FOR 
= 1-0, At, = 0.20, At, = 0.05, x(0) = 2.5, 
x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38].) 
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FIGURE 5.10 — PHASE TRAJECTORIES FOR VAN DER POL 


x(O)es 2.5) 9x( 0) =—0-0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [ 39]-) 
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FIGURE 5.11 - SOLUTIONS TO VAN DER POL EQUATION FOR 
u = 2.0, At, = 0.20, At, = 0.05, x(0) = 2.5, 
x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38].) 
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FIGURE 5.12 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR yp = 2.0, At, = 0520" a DAS. 
xG0)) m2 ex ( 0) m=e OO 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].-) 
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FIGURE 5.13 - SOLUTIONS TO VAN DER POL EQUATION FOR 
U = 5.0, At, = 0.20, At, = 0.05, x(0) = 1.0, 
x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38]-) 


110 


35-0000 
Ate Cel eclentioc 


LINEARIZATIGN) =0-.2000 
at (RUNGE-KUTTA) = 0.0500 


oh memes U0) ~COJ=5 0.0000 


——— RUNGE-KUTTA 
OURIECENISE, GINEARI ART TON 


_ — = 
Me 2 
> * gf 
ae ' 
| ; 


nm 


noodat = Thiet 


= 


J05 AS) Gas soy Seca many - 42,2 aD 
80.0 4 06.8 ohana = MOY wOLeages 
e.0 © (Of% .C.2 = (Oe 


jot" aes aatdvutng ertut-tgpes .269s62 
— (-7ory «o wie 


= 


FIGURE 5.14 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR H = 5.0, At, = 0-20, At = O505* 
x(0) = 1.0, x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].) 


eee 


53-0000 


Ae ee ee Nc 
LINEARIZATIGN) =0-.2000 


At (RUNGE-KUTTA) = 0.0500 


x (OJ = 1.0000 (OU) =" 0-0900 


So RUNGE =U ie 
OUP ITECEWISe EINERR IZATION 


| 
| 
| 
| 


| a ; 

ans PorTatk pantech teap 
ca fm. ed x 0” bad 7. aGs e - 

ree ~ ao7e : | : 

as Ri eae be obs a Peo 


ee eal t~” 


FIGURE 5.15 - SOLUTIONS TO VAN DER POL EQUATION FOR 
UW = 5.0, At, = 0.20, At. = 0.05, x(0) = 2.0, 


x(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [ 38].) 
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FIGURE 5.16 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR p = 5.0, At, = 0.20, At, = 0.05, 


x( 0) me? 0 9 x(0).=20e0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].-) 
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FIGURE 5.17 - SOLUTIONS TO VAN DER POL EQUATION FOR 
= 95.0; Ness 0220" Mae = Hn, STOO? SB O55 
xCO)e=0020 


(N.B.-: Runge-Kutta solution uses [5]. Diagram 
based on [38].-) 
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FIGURE 5.18 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR u = 5.0, At_ = 0.20, At = 0.05, 
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(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].) 
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FIGURE 5.19 - SOLUTIONS TO VAN DER POL EQUATION FOR 
oS OA Ne ON Ne Sth, RUM) OS 5, 


x(0)s=0.0 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [ 3g]-) 
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FIGURE 5.20 - PHASE TRAJECTORIES FOR VAN DER POL 
EQUATION FOR H = 5.0, At, = 0.05, at, = 0.05, 
(0 e025 ax (0) = 020 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [39].) 
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FIGURE 5.21 - SOLUTIONS TO VAN DER POL EQUATION FOR 
Hw = 5.0, At, = or Atyx =). 2 ame Gl) mee ae 
x(0)5=—3020 


(N.B.: Runge-Kutta solution uses [5]. Diagram 
based on [38].) 
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FIGURE 5.22 - PHASE TRAJECTORIES FOR VAN DER POL 
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problem, since the situation appeared to be rectified to some extent in 
these diagrams, and completely resolved for uy = 2.0 over the time span 
examined though the plots in question are not shown here. 

This raises some interesting questions concerning the solution of 
this equation. One is concerned with stability, but this will be 
examined later as a similar problem occurs in the next chapter. Another 
is that if the piecewise linear method is affected by this behaviour, 
then the Runge-Kutta solution [5] as used here may, at times, also be 
suspect. 

An example of the latter can be seen in Figures 5.21 and 5.22 [38], 
[39]. The time interval for each solution is rather large (keeping yu at 
5.0), and some distortion can be seen in the displacement-time curve, 
while the phase plane diagram is very much affected by this to the 
extent that one cannot tell which part of the curve is the limit cycle. 

Figure 5.21 [38] displays a paradox, as there would appear to be 
more than one value for the displacement as calculated by DVERK [5] for 
a given time (such as for t of about 23, where the value of x would be 
abouts. al,u).0, and —0.9). This, is) physically impossible, and can lead 
to an erroneous conclusion about the results. 

A possible source may be that the graphics routine used [40] was 
unable to produce a smooth curve due to a low number of data points 
being plotted since At was large. (By comparison, the curve for Figure 
5.19 [38] was more accurate since a much larger number of values had 
been used.) The examination of the calculated numerical values may give 
further insight as to what may have brought this about. 

Of interest now are the execution times for the two solutions. As 


before, the program was stripped of all non-essential steps, such as 
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comment statements and write commands and then run for. various 
values of UH, At,, and Ato,» with x(0) = 3.0 and x(0) = 0,0 using (27). 
The runs were for the time taken to complete 10 Nali=-cycles = ton sche 
piecewise linearization and the closest time to that value for the 
Runge-Kutta solution [5]. These were obtained by running an earlier 
version of the program on the Amdahl 470V/7 [25], with the results seen 
in Figures 5.23 - 5.26. As expected for this system, the Runge-Kutta 
[5] results were significantly lower than those for the piecewise 
linearization, but noteworthy is the fact that the times go up for the 
piecewise linear method after At, = 0.25 for W= 2.0 and: i= 5.0. 9 1The 
calculations for the damping coefficient described in the derivation may 
explain why this arises, because of the number of iterations required to 
achieve a solution. Also, for these values of wu, no results were to be 
obtained for At, = 0.5, as the program kept exceeding its set time 
limit, even after a setting of 15.0 seconds [31]. It was decided to 
abandon any further attempts as the runs would have proved too costly, 
but this might indicate that an economic upper limit may exist for these 


values of UL. 
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FIGURE 5.23 - EXECUTION TIMES FOR VAN DER POL 
EQUATION SOLUTIONS FOR y = 0.25, x(0) = 3.0, 
=(0)2="0.0" [27] 


(tc) — 
eel? Seay 7: 
ft « (Wyle 


Pon ome ie 


EXECUTION TIME (SECONDS) 


ay 


Le = Bad 


© RUNGE-KUTTA [5] 
1.00 O PIECEWISE LINEAR 


coat (R: K+) eS 


HALF-CYCLES = 10 


0.90 


0.80 


0.70 


0.60 


0.50 


0.40 


0.30 


0.20 


0.10 


Ore 0.2 0.3 0.4 0.5 
At 


FIGURE 5.24 - EXECUTION TIMES FOR VAN DER POL 
EQUATION SOLUTIONS FOR LX = 1.0, x(0) = 3.0, 
(0) = 0.0 [27] 
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FIGURE 5.25 - EXECUTION TIMES FOR VAN DER POL 
EQUATION SOLUTIONS FOR E = 2.0, x(0) = 3.0, 
(0) = 0.0 [27] 
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FIGURE 5.26 - EXECUTION TIMES FOR VAN DER POL 
EQUATION SOLUTIONS FOR HU = 5.0, x(0) = 3.0, 
(0) =.050 [274 


VI. MATHIEU EQUATION 


Ae Preliminary Comments 
In this chapter, an example of a linear equation with a periodic- 


ally varying coefficient, namely the Mathieu equation, is examined. It 


has the canonical form [41]: 


Vente aed COSte 2) Yass On, COied els) 


a = Characteristic number. 


The initial conditions considered are: 


y(0) = Yor y'(0) = YH A (Oca) 


Fortunately, an exact solution exists in terms of some special 
functions, and a means of generating a series approximation to them will 
be derived. This will be used as the basis by which to judge the piece- 
wise linearization. The same Runge-Kutta routine [5] that had been used 
in the earlier chapters will also be used as confirmation of the 
results. The investigation will be limited to those cases of integral 


order. 


B. Generation of Characteristic Number 

The major references “for this chapter “are Ince | [42] and 
McLachlan [43]. 

The appropriate characteristic number depends upon the initial 
conditions from which the solution is generated, the order of the 


solution (which determines the period T) and is summarized as [44]: 
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eS T = 27 
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One method for this makes use of the recurrence relations for the 
coefficients of the series form of the exact solutions [45] which are 


shown below. 
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The coefficients for the equations are calculated using the 
recurrence relations described in McLachlan [46]. 
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With Ince's notation [39] for the continued fraction: 


and the rearrangement of some of the terms, the above relations lead to 


the following. For ce, (2,4); the result is [47]: 
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which yields the continued fraction for the characteristic number [49]: 


Z Z 
b =! q my eee g_f225 
ent fe Se 
9 is) 
(6.2.10) 
gq” /1225 
aoe bes 


ool : 


- 
poltefes sveds of) “Seyet ais du ancy Je seumegn vast ony bt 


=> 


: eae ee 
: eg) ed yiuest #? oad Net -patuphsey ee? 


a 
- 6 
(go! aoltame? Miniseto wis ebfely. | 
. i rs 
— ~ — “7 —i Es x a= | 
z " 


— 


' ? pile a £ 

‘ ¥ ’ Ps sang? a 
‘ = ») r- _~ ne 

cS 2 | : 
————- - 1 1 thes) ie 


7 -: a 
ime *) 100762 089RSS Gis Ww! iwitoes Peomi sage wt ‘oY /: 


139 


tThe@) casem cotwec (z,q) is similar to the previous function 


conte 


since the continued fraction for the coefficients is the same, but with 


a change of sign in q, yielding the value for the characteristic number 


[49]: 
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Finally, for SO 629d) the continued fraction is [49]: 
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and the characteristic number continued fraction is [49]: 
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fractions just given together with a suggested approach given by Ince 
[48]. He states how someone doing this task using a calculator, paper 
and pencil could arrive at a final result. The author took this method 
and first went through the procedure by hand for tabulated values for 
the characteristic number and flowcharting the decision processes 
required, and then testing this method on a Hewlett-Packard HP-67 hand 
calculator, transferring the final version of the logic to a computer 
program, which was later run on the Amdahl 470V/8 [26]. The results 
were compared with the tabulated results given by Ince [50] and there 
was agreement to seven or eight significant figures. 

The following method can be considered as consisting of two parts. 
The first one (Steps 1-3) is a scan through a range of values for the 
characteristic number, for an estimated value for a Sn and a given 
q, until an upper and a lower bound, between which the final value will 
lie, are found. The second one (Steps 4-6) is an interval halving 
search for this final value. The particular continued fraction used is 
dependent upon the initial conditions in effect. If at any time during 
the scan 208 is approximately equal to Sea the process stops. 

it Atavia tuermior Dace is found using Sag 

25 cist an is greater than ecu assume aN to be high, decrement 
it and repeat Step 1 until either Dose is less than Spas or the sign of 
the present at is different than that for the previous a and the 
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the final a oy and the lower one is the previous value. 


140 


fede otet dora aodeen wie 
203 cater bes elute eens eis at e 
scaseresy stietosl «if siredna bre oes on otis 
baad tO-4H foadoe-issTeee a ae Setar eis snvtast nails bm B+ peste | 
mint vole 
maugme « of abgel pfs 3c bosezey ian att rer: 
sjaeay wet JOS) S°V0Te ffhet eff oo Out teas eae ASE 
wees Woe POC) aent ye ness ote ens esatovet sda die 
eovuplt “snes iRagols sipts 2 never adie | 
piaag ow to yobieienoo ts Hereblanes ef op badier sriwoties att 
sds wet vaplow > Gepet.e Mggonte mos Seb (0) egete? ose , 
MT a alia 


| 4 Cz 


jliu swlar an! why foldw f40uT3ec , hemerdl sae! » tre wey os etait 


~ *) BT. 7 


A) oe beweee off  .bavol = ky 


aniviett tevveini we &) (Or® mega 


0) beew nebtoasi. bavualddan weisigan we wiler font) ebds se? 


— 


re 


,enote e8s0ect>q 253 ®ve” at 'sute _ytaawieoegge at «me 


‘ye? giteec bheol a wag” wa Sulew’ A? 7 


-~ 
; .....* fed. 9a2 a - 
Shomecrsab .itaté od od Jw Saeed... 6 nate ot 48 bee 


aa 
% ngde Sat te (Ae puta wel &) 2 radpts Lpsen «2 saeatcidiex) + 


ans tie » comiveny eft 303 fat? weufa soso veh phn aeuerq st 


= 


anituh atls ye th TD «I2eT2a fm) eto) eae tetetat of noqu oa 


7 


TIO 
“ Sagi-o2-i00n wis a2 fay*? hove asgqu st ‘a 


1 get 
1a gosepisci , val aia saad eta wt 


Al Deut Gagey. AF — | ws diame 
7 oer 


4. The midpoint a is calculated from the average of the upper 


MID 


and lower bound an i ; i 
unds, d an output value Aauipour 18 found As aun 18 


nearly equal to Aaurpout » @mrp is the final value for a. ie Gelohen, 


continue below. 


5. Consider the case of a positive a Ge is less than 


MID" @uMIDOUT 


or equal to zero, a is the present a and Step 4 is repeated. If 


LOW MID? 


is greater than zero and a is less than or equal to a 


4 MIDOUT MID MIDOUT? 


the present auIp becomes arow and Step 4 is done again. However, should 
autpour be greater than zero, and amIp be greater than ayrtnoyp » 4mtp 
becomes ayp and the process returns to Step 4. 

6. The following applies to ayqtp less than or equal to zero. If 
4 MIDOUT is greater than zero, auIp becomes the new arow,» and the next 
move is to Step 4. For aytpoyr less than or equal to zero and ayjqp 
greater than ayrpnoyp the new ayp is the present ayyp, and then to Step 
Aue Lt aurpout is less than or equal to zero, and ayyp is less than or 
equal to aytpour @row takes on the value of the present ayyp and Step 4 
is repeated. 

This covers the method for generating a value for a characteristic 
number. Specifically, the particular calculation chosen depends upon 
the initial conditions and the proximity of the first guess to the final 
value. 

To elaborate, for a non-zero initial displacement and zero initial 
velocity, ao and a would be the appropriate values, with DS and 


ont +1 
b b being in effect for zero initial displacement and non-zero initial 
2b+2 
velocity. The program that was written for this purpose calculated the 


odd order value first (this choice having been arbitrary) and then the 


even order one was found. Whichever was closest to 4cuRss became the 
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final result. This was then taken to generate the three solutions 


used. 


Ce. Series Approximation to Exact Solution 

As mentioned earlier, Mathieu functions can be approximated by 
Series» solutions [45] a whichawere given as (6.2.1) (to (6.2.4). The 
question now is how to generate the coefficients that were given. 
According to McLachlan [46], [51], the recurrence relations that were 
given in (6.2.5) to (6.2.8) can be used. However, a more suitable form 
for these relations must be obtained in order to facilitate calculation 
of the coefficients. 


Consider ce, (z,q) (52) om lhetfirst relation of (6.2.5) 21 ves. 


It had been decided to terminate calculation after 25 terms, since 


ratios beyond A /Aco would become so small that they could be neglected 
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when compared with the other terms [53]. Once the various ratios have 


been found, the normalization [54]: 
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is required, and so the values for A, /Ag are needed. This is done by 


using: 
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starting with A,/A, and A,/A5, and working sequentially through all the 
ratios. Once this has been accomplished, using the different values for 


A,,/A Ay and Ao, can be found. 


0? 
With the various Ao,'S, a series approximation for ce>,(z,q) can be 
generated. 


Take now Ce 44416259) [55]. The first ratio from (6.2.6) gives: 
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The remaining ratios are of the form: 


As was the case for the previous: function, calculation was halted 
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after 25 terms because ratios beyond Agy/Agg can be considered as being 


negligible when compared with the others. The resulting normalization 


used is [56]: 


and the series approximation for cej,,;(z,q) using the values for Aor4] 
is found using the same method as before. 

Consider now Se 4 622d) * Owing to the similarities between 
(6.2.6) and (6.2.7), the derivations can be omitted and the results 


presented [49.]: 


EProngchnis, Se 944 1(2549) can be found since the coefficients can be 
determined from the above relations. 

Finally, the results for se5,,5(z,q) will be shown. Since Coe sate) 
is similar to (6.2.5), the ratios are as follows, since the derivations 


would be alike [55], [56]: 
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From this, an approximation to a Mathieu function of integral order 
can be generated, thus allowing one to consider the complete solution to 
the original equation. A computer program was written to make use of 
the relations just derived, and the results were checked against tabu- 
lated values that Ince presented [57], and were found to be in agreement 
to at least seven significant figures in almost all cases. 

Using these coefficients, (6.2.1) to (6.2.4) can now be calculated, 
and thus, an approximation to the exact solution generated. For 


integral order solutions, one or the other of (6.1.2) is zero. For: 


y(0) 


yO) 


Yo > 


0, 


thessolution uses either (6.2.1): or (6.2.2), giving aycompicte) result 
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Applying (6.1.2) yields the final form: 
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the solution is of the form of either (6.2.3) or (6.2.4), 


y = BS, py (2 r4) 
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giving, aiter*using (6.1.2). 


co 


y' = 8) f(r By ey cos [o(r)z]} , 


K 
oe 
Hf] 
WD 
| eet | 
SF 
n 
Ww 
=EF 
Q 
Oo 
n 
S 
[2=) 


y= -, ti eee 1 By ir) sin [o(r)z | ° 


r=0 


D. Derivation of Piecewise Linear Solution 
Since it is desired to have a piecewise linear solution of the form 


shown in (1.2), (6.2.1) can be approximated by: 
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over a small interval, Az. The displacement at the beginning of this 
interval is yp and the velocity Yo° 


This equation has the following solutions (based on [34]): 
A. p* > 0 [58]: 
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Gemmepen <2 08137): 


Ne 
y= Y, cosh sz + sinh SZan, 


The final value for the characteristic number, a, and q are given such 
that the solution would be periodic. Az can be of any reasonable size. 
Consider now the (m - 1)th and mth points. The ‘displacements that 


would correspond to them are ean and a? respectively. See Figure 6.1 


hi 
for details. As the system moves through (Az, a will change. It is 
better to have it as a constant value as it passes through an interval, 
and so, it is calculated at the midpoint of the interval, or at 
(mre l/2) Az. It is obvious that this will be the case as Az gets 
smaller. That is to say, a - 2qcos[2(m-1)Az] and a - 2qeos(2mz) will 
approach a - 2qcos[(2m-1)Az]. 

So, for the mth point, the solutions will be as follows. For 


ae —2qcos|(2m-1 Az] greater than zero, [56]; 
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FIGURE 6.1 - TYPICAL INTERVAL LAYOUT (MATHIEU EQUATION) 
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At the end of the interval: 


i 
< 


t 
YQ 


and the next set of calculations for finding Ue eal begin. 


E. Results 

Since there are numberous combinations of the characteristic 
number, q, and initial conditions’ that one can examine, it was decided 
to take a few selected values for the parameters and initial conditions, 
which would illustrate what can be encountered. 

It was decided to take the initial guesses for the characteristic 
number as -50.0, 10.0, and 30.0, with the values for q being 1.0, 10.0, 
20.0, 30.0, and 40.0. This enabled one to check some of the values 
obtained against tabulated results. 

For the case of q = 1.0, both the piecewise linearization and the 


Runge-Kutta solution [5] had a close correspondence with the series 
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approximation to the exact solution, as can be seen in Figures 
6.2 - 6.4. For most of the values, the same applies for q = 10.0 
(Figures 6.5 and 6.6 being examples of the results obtained). However, 


something unusual occurred for the case of q = 10.0, =50.0, 


* GUESS 
y(0) = 0.0, y'(0) = 1.0 (Figure 6.7), where the piecewise linearization 
exhibits erratic behaviour. 

Consider the cases where q = 20.0. Figure 6.8 is a typical example 
of the good correspondence between all three solutions, but Figure 6.9 
shows some anomalous results. In fact, tests for this case have shown 
that the amplitude of the piecewise linear results can go as high as 
Dax 10°, thus making the Runge-Kutta solution [5] and series approxima- 
tion insignificant by comparison. A somewhat minor deviation was found 


to exist for the same values of a and q, but for the other set of 


GUESS 
initial conditions, though this occurs near the end of the first cycle, 
and was less than a third of the maximum values of the other solutions. 
Up to that point, however, it had given satisfactory results. 

Since this has been observed to happen, the question now is whether 
this occurs for other values of a CuESS and q- Indeed it does. Compare 
the difference between a "good" result (that is, correspondence between 
all three solutions) and@ one sechatee Ss NOt (bi sures me .0 mo oden Onin 
respectively, for q = 30.0, and Figures 6.12 and 6.13, respectively, for 
q = 40.0). 

The magnitude and form of the deviations was totally unexpected, 
since they did not even follow the basic pattern of the other solutions, 
but seem to be random occurrences, quite unlike what was seen in the 


previous chapter where the shape of the resulting piecewise linear 


solution curve at least was the same as that of the solution being 
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FIGURE 6.2 - SOLUTIONS TO MATHIEU EQUATION FOR 


a = -50.0, q = 1.0, Az = 7/200.00, 
II shy <1 Olly Cede) = ies8 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.3 — SOLUTIONS TO MATHIEU EQUATION FOR 


(N.B.: Renge-Katta solution uses [5].) 
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FIGURE 6.4 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = 30.0, q = 1.0, Az = 7/200.00, 
SEES oS Wy GD) S hae 


(N.B.: Runge-Kutta solution uses [5].) 
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CHAR. NUM. (EST. VALUE) = 30.0000 
CHAR. NUM. (FINAL VALUE) = 25.0208 
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FIGURE 6.5 - SOLUTIONS TO MATHIEU EQUATION FOR 


a = 10.0, q = 10.0, Az = 1/200.00, 
CUBSoT (0) =) 020) y! (0) n=O 


(N.B.: Runge-Kutta solution uses [5].-) 
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FIGURE 6.6 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = 30.0, q = 10.0, Az = 7/200.00, 
EEE) iy) = OHOn Sen) Shae 


(N.B.: Runge-Kutta solution uses [5].) 


161 


CHAR. NUM. (EST. VALUE} = 30.0900 
CHAR. NUM. (FINAL VALUE) = 26.7664 
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FIGURE 6.7 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = -50.0, q = 10.0, Az = 1/200.00, 
oe ony (0)p=n0s 0 (0)i=al-0 


(N.B.: Runge-Kutta solution uses [5].-) 
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FIGURE 6.8 - SOLUTIONS TO MATHIEU EQUATION FOR 
acurss = 10-0, q = 20.0, Az = 7/200.00, 
y(0) = 1.0, y'(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.9 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = ~50.0, q = 20.0, Az =7 /200-.00, 
GUESS (0) = 0.0, y'(0) = 1.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.10 ~ SOLUTIONS TO MATHIEU EQUATION FOR 
a = 30.0, q = 30.0, Az =7/200.00, 
ESE! ayy) HO, SEO SO ihe 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.11 - SOLUTIONS TO MATHIEU EQUATION FOR 
ane = -50.0, q = 30.0, Az = 1/200.00, 
GUESS 4(0) = 0.0, y'(0) =1.0 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.12 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = 30.0, q = 40.0, Az = 7/200.00, 
SIS hy 3 Mae, UND) OE 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 6.13 -— SOLUTIONS TO MATHIEU EQUATION FOR 
a = -50.0, q = 40.0, Az =7/200.00, 
GUESS (0) = 1.0, y'(0) = 0.0 


(N.B.: Runge-Kutta solution uses [5].) 
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compared. Since changing the size of the increment of z seemed to work 
for the Van der Pol equation, it was felt that this may solve the 
problem. A typical result of that was as can be seen in Figure 6.14. 
This particular case was chosen as this phenomenon was first observed 
during the initial development of the computer program using the same 
conditions, but Bie ter being -45.0. 

It was suggested that the computer program written to generate the 
solutions and plots could be run up to a point just prior to the break- 
down, and then using the final values as a new set of initial con- 
ditions. Unfortunately, this helped very little. As a check as to 
whether the computer program was at fault, a test program was run on a 
Hewlett-Packard HP-67 hand calculator using the same conditions, and it 
was found that the same situation occurred with essentially the same 
outcome. This was double-checked ve running a Runge-Kutta routine 
designed for the HP-67 by Hewlett-Packard [59], but with the same 
result. 

At present, the question as to what occurred, and why, remains 
unanswered. However, it would appear from the plots obtained for the 
region of q < 20.0 that no problems would be experienced for a positive 
value of the characteristic number. Possibly, a small negative value 
might do so, but this was not investigated. There are indications that 
this may even extend up to q = 30.0. Problems quite definitely develop 
for q = 40.0, and it appears that regardless of what the value for the 
characteristic number is, deviations from the series approximation will 
occur. 

There does not appear to be any symmetry in the severity of the 


deviations as far as initial conditions are concerned. An example of 
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FIGURE 6.14 - SOLUTIONS TO MATHIEU EQUATION FOR 
a = -50.0, q = 40.0, Az =17/400.00, 
EEE) aay ca had. GY I Walt 


(N.B.: Runge-Kutta solution uses [5].) 
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this is the case of Acurss = -50.0 and q = 10.0. For the conditions of 
y(O) = 1.0, and y'(0) = 0.0, there is a slight deviation near the end of 
the first cycle, but only a fraction of the maximum displacement. How- 
ever, for the same characteristic number estimate and q, but y(0) = 0.0 
and y'(0) = 1.0, a totally different situation arises in which the maxi- 
mum displacement for the piecewise linearization dwarfs the other solu- 
tions. Though this is an isolated example, there may possibly be a 
problem here. 

As had been shown in the previous chapters, the program had been 
stripped to its essential calculations, removing comment and output 
statements, and the timings of the three solutions were obtained [27] 
for selected cases. The results of this can be seen in Figures 6.15 - 
6.17. This was run on the Amdahl 470V/8 [26]. 

For the piecewise linearization and the series approximation, a 
linear relationship with the number of divisions of 7 (and hence, the 
size of the increment of z) and the execution time exists, but the 
Runge-Kutta method [5] displays some unusual features. | First e.ts 
execution times are almost always larger than those for the other two 
solutions, except for Figure 6.15 and the smaller values of Az in Figure 
6.16. In fact, it is considerably larger than what was obtained for the 
piecewise method, being larger by about a factor of 10 for a large Az 
but down to four times as large for the smaller values. 

The other unusual feature is the fact that the Runge-Kutta results 
[5] show some scatter, particularly seen on Figure 6.16. Thisy is 
different than what was observed for the hard spring equations (in which 


the results were linear) and for the Van der Pol equation where the 


results were exponential. 
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FIGURE 6.15 -— EXECUTION TIMES FOR SOLUTIONS TO 
MATHIEU EQUATION FOR acyrss = 10.0, ql= Le0% 


y(0) = 1.0, y'(0) = 0.0 [27] 
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FIGURE 6.16 ~ EXECUTION TIMES FOR SOLUTIONS TO 
MATHIEU EQUATION FOR agypcg +0); iy *= 920550); 
y(0) = 1.0, y'(0) = 0.0 [27] 
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This behaviour was discussed with a consultant from the University 
of Alberta Computing Services [60] in an attempt to determine what had 
brought this about. A suggested explanation is that the routine that 
generated the Runge-Kutta results [5] may have been affected in whole or 
in part by the actual size of the Az used. However, the exact cause of 


the execution time variation remains unknown. 
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VII. DISCUSSION 


As was mentioned in Chapter 2, the method of tangents for solving 
the undamped hard spring equation had a greater execution time than the 
method of chords because of the extra calculations that had to be 
carried out in order to arrive at a solution. The period of oscillation 
as calculated by the former method was closer to the value obtained by 
the approximation to the exact solution [4], [15], [17] than the period 
calculated by the latter one, but the method of chords had a closer fit 
to the solution curve of this approximation than did the one using 
tangents. 

For 5 segments, the period as calculated by the approximation to 
Cheemexact, @sOlUtION a [4 |G 8 | 22) sel) meet Oramrae=r. Ou sande Det ec. ees 
4.004308722, while the one obtained by chords is 3.976017631 with the 
one by tangents, 4.018171439. The period found by the method of chords 
was 0.707% less than (2.2.5) [17], while the value for the method of 
tangents was 0.346% larger. If one were to consider the case of 100 
segments for a = 1.0 and b = 0.15, where (2.2.5) [17] was found to be 
5.958299670, the chords gave 5.958281464 (0.0003% less) while the 
tangents gave 5.958310457 (0.00022 greater). So, the tangents gave a 
more accurate calculation, as far as the magnitude of error is 
concerned, for the period. 

However, in judging a method of solution, the period itself is not 
necessarily the only standard. Thes.acctracy of (thewrlt orm the cal] 
culated solution with respect to the one that had been chosen to be the 
benchmark [4], [15], [17] is perhaps more important, and it is here that 


the method of tangents starts showing a small, but significant, 
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difference. If one were to look at Figure 2.8, one can see that the 
tangents are off by a slight amount, while the chords are much closer. 
For Figures 2.6 and 2.7, this does not become immediately apparent, 
which indicates that the values. of a and b would have some bearing on 
the closeness of the fit. 

As mentioned before, it was because the method of chords gave a 
closer fit that this method was adopted throughout the remainder of the 
thesis as the method of piecewise linearization, as well as the fact 
that it was quicker to calculate. 

The execution time provided some interesting results. Since the 
solution chosen to be the standard was based on a packaged program 
library [5], one would have expected it to have a shorter execution time 
than the other solutions, but since (2.2.4) [15] was calculated each 
time, this apparently unusual result appears to be resolved. It should 
be noted that while setting up the timing program, the author had run it 
in which (2.2.4) [15] was calculated only once and the _ solutions 
generated after that, and the approximation to the exact solution did, 
in fact, turn out to be faster by about 10% than that of the method of 
chords for most of the runs. 

The two cases of the damped hard spring were an extension of the 
undamped one. For the situations examined, a good agreement between the 
results of the piecewise solution and those of the Runge-Kutta method 
[5] was obtained, which leads one to conclude that for the size of the 
displacement used, the piecewise linearization was a suitable approxima- 
tion to the chosen standard, since an exact solution is not available. 

Because the same calculations are carried out for each iteration, 


the timing results (using [27]) were linear with respect to the number 
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of divisions per first quarter-cycle will occur, and also, the quan- 
tities being incremented were different in each solution. Also, as 
expected, the Runge-Kutta method [5] used less time than the piecewise 
method. This can be seen if one considers that this is from a packaged 
program library, and so, should have the advantage of development and 
modifications. In fact, the IMSL package used was in its seventh 
edition [5], and presumably, should be as efficient as possible, as 
compared to the piecewise linearization portion of the computer program 
used to generate the solutions. 

What is unusual is that for a large increment (that is, a small 
number of divisions per first quarter-cycle), the timings show a large 
deviation, which probably means that the increment chosen was so large 
that, in fact, the solution does not have time to converge (if a time 
was obtained) or that both solutions have to work harder to eee a 
result. This appears further on for the Van der Pol equation. 

The hard spring equation piecewise linear solutions gave a close 
correspondence with the results from the Runge-Kutta method [5]. How- 
ever, this was not the case for the piecewise linearization of the Van 
der Pol equation and the same Runge-Kutta method [5], and for the piece- 
wise linear results for the Mathieu equation and the approximation to 
the exact solution. 

The apparent “phase difference” noticed in the Van der Pol equation 
results, and which apparently was resolved by reducing the size of the 
time increment used, was the first sign that the piecewise linearization 
could have some limitations. Some insight was gained by considering the 
subject of stability, since this may have some bearing on the results 


obtained for the Mathieu equation. 
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Several things should be noted first before continuing. One is 
that because of the apparently strange results obtained for the Van der 
Pol equation for the higher values of wu, there may be a limit beyond 
which the piecewise linearization becomes unreliable. In other words, 
for the equation parameters and increment sizes, there may be an area in 
which this method is ineffective. This is indicated by Figures 5.21 and 
Ste 3/4 os LE Los ly od bo Ree bes . 

If this is the case, then, can one predict if, and when, this will 
occur for a particular situation? Is it actually due to the numerical 
instability or possibly machine error? The answer to the first question 
is that it may not always be possible to do so. This is indicated by 
Greenspan [61], and it would therefore appear that a trial-and-error 
approach is the only sure method of determining if an equation becomes 
unstable for a given set of parameters. 

The question now is whether this error was caused by instability or 
machine error. The internal tolerance for calculations like the Newton- 
Raphson [30] relation that was used for determining the remaining time 
until a peak or trough had been reached had been set to smaller values 
to ensure that perhaps this may not have been the source. This was 
because the solutions appeared to be all right for the smaller values 
for uy. Also, the tolerance for the Runge-Kutta program had also been 
reset to a smaller value [5], but the result was that virtually no 
change was noticed in this solution. Since the smaller value for the 
time increment appeared to resolve the problem, it was concluded that 
numerical instability may have caused it. 

This led to the consideration of the accuracy of the solution to 


(5.1.1) obtained by using the Runge-Kutta method [5]. Figures 5.21 and 
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59-2.2 [38], [39] indicated that it may become inaccurate with a large 
time interval, but perhaps not to the same extent as the piecewise 
linearization. It can therefore be concluded that the results from the 
Runge-Kutta method [5] may be misleading if factors like this are not 
taken into account. 

Next, the timing runs were done [27]. The piecewise linearization 
had a parabolic relationship between execution time and the size of the 
time increment, and the Runge-Kutta [5] had an exponential relation. 
This can be easily explained by referring for a moment back to the 
results for the damped hard spring equations. 

There, for a small number of divisions for the first quarter-cycle, 
the times for both solutions deviated significantly from the remainder 
of the results, which indicated that both solutions had to go through 
more iterations at this stage. The same probably occurs here, since 
there were some runs for which times were not obtained because the 
computer kept exceeding its set time limit [31]. This occurred for the 
higher values of At, and Aton’ For a small value of At a large number 
of iterations had to be carried out, though, because of the small 
increment, convergence would be rather quick [60]. 

The aspect of instability occurs once again with the Mathieu 
equation, and this will now be examined. For the lower values of q, 
there was generally no problem with the characteristic number was large 
and negative, and what makes it particularly puzzling is the fact that 
the situation described by Figure 6.7 does not seem to follow any par- 
ticular pattern relating to the other solutions. For the Van der Pol 
equation, the deviations at least looked like the Runge-Kutta solution 


[5], but expanded along the time axis. However, for the Mathieu 
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equation, this does not seem to happen. 

Figure 6.7 may very well represent part of the unstable region, as 
had just been discussed. Figures: ©6.9;9°6 <1)h, S6°13),> band t6.14 were 
interesting in the fact that the maximum amplitude of the piecewise 
linearization completely dwarfed the other solutions as was seen when 
the initial results were obtained. (It should be noted that the plots 
were scaled by taking the largest amplitude of the three solutions, and 
so, this result will occur.) The program was temporarily modified to 
show the other solutions, and so, the piecewise linearization results 
end up going off scale. 

In particular, Figures 6.13 and 6.14 display that changing the size 
of Az does not seem to have any major effect on this phenomenon. The 
analysis is further complicated through the piecewise linear results 
following the series approximation to the exact solution quite closely 
until nearly the end of the first half-cycle, and then becoming 
unstable. 

Though not shown here, it should be noted that the results from the 
Runge-Kutta method [5] had exhibited similar behaviour. This was 
observed by the author when developing the program for solving the 
Mathieu equation for the same initial conditions for Figures 6.13 and 


f -45.0 instead of -50.0. It became unstable 


6.14,. but using an Agus © 


to a smaller extent than the piecewise linearization and took place in 
roughly the same area, while the series approximation was 
“well-behaved”. 

Perhaps some insight can be gained by examining the subject of 


numerical instability. First, one must consider what sort of instabil- 


ities exist. 
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Most texts on numerical analysis will give four definitions, 
depending upon what the situation in question is, such as [62], [63], 
[64], [65], [66]. (It should be noted that the definitions to be given 
are as used in the references.) 

“Inherent” instability occurs when a small change in the starting 
value will cause large changes in the solution to occur, but this is 
independent of the numerical method chosen to solve the problem [62]. 
It is the equation itself that is insensitive, and not the means used to 
solve it [63]. 

ebartials instability arises when’ the solution deviates 
significantly from the true one as more steps are taken. The situation 
is dependent upon the equation that is being solved, the method used, 
and especially the step size. This appears to be resolved when a 
smaller increment is chosen [64]. 

"Strong" instability arises when one solves the equation, but 
additional terms arise that do not vanish as the step size gets very 
small. These terms increase faster than the desired solution, and lack 
of convergence as well as stability is implied here [65], [66]. 

"Weak" instability is defined as having the same behaviour as what 
characterizes strong instability occurs, but the solution converges 
[65]. 

In view of these definitions, the problems with the Mathieu equa- 
tion piecewise linear solution seem to display a combination of all of 
these, but cannot be completely described by any one of them. As was 
mentioned before, the initial conditions were changed by a slight 
amount, but this did not give rise to the radical changes that 


“inherent” instability would imply. “Partial” instability [64] seems to 
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describe what had occurred with the Van der Pol equation, but still, a 
change in the step size did not seem to matter much, though there is 
some indication that if one were to take an extremely small step size 
(such as on the order of 17/5000), a partial success is achieved in that 
the amplitude of the piecewise linear method is reduced by at least a 
factor of 10, but the “takeoff" point for this irregularity does not 
seem to have been affected much by being delayed for a few more 
increments, as compared to what happened with the Van der Pol equation. 


we 


So, it would seem that “partial” instability [64] can be eliminated as a 
probable cause. 

After breakdown, the solution appears to follow a pattern in the 
resulting curve rather than having the points randomly distributed. 
This may be an indication of "weak" instability [65], but because there 
was a good correspondence between the piecewise linearization and the 
series approximation to the exact solution, it cannot be the sole cause. 
The possible clue concerning "weak" instability [65] was obtained from 
the original plot from which Figure 6.9 was derived (Figure 7.1) 

Since no single definition of instability fully describes the 
observed results, it appears that the reasons for the failure of the 
piecewise linear method are perhaps more complex than first imagined. 

Figure 7.2 is a plot of the characteristic numbers obtained versus 
q, and the distinction is made between those values for which serious 
deviations occur and those for which the piecewise linear solution is 
reasonably well-behaved. There appears to be a transition zone between 
which the solutions go from stable to unstable. Unfortunately, there is 


not enough data available to give a better resolution of the boundaries, 


and so, Figure 7.2 has to be taken as a very rough estimate. What it 
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FIGURE 7.1 - SOLUTIONS TO MATHIEU EQUATION FOR 
A = G0, q@ 5 Wot, 16 So ean. 
we adh) SOO, Gray S Lal 


(N.B.: Runge-Kutta solution uses [5].) 
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FIGURE 7.2 -— STABILITY CHART FOR PIECEWISE LINEAR SOLUTION 
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does indicate is that if this problem of the runaway piecwise linear 
solution cannot be resolved, this chart (or rather, a more accurate 
version of it) would give one an idea as to where the piecewise linear 
solution to the Mathieu equation becomes ineffective and another method 
should be pursued. 

The timing results really posed no major problems as far as most of 
the values were concerned [27]. The piecewise linear method was fairly 
straightforward, and so, one can expect a linear solution, since as the 
number of increments is increased, the same calculations have to be done 
that many times more. The same applies to the series approximation to 
the exact solution, where the solution is mainly composed of the 
manipulation of the coefficient ratios. 

The Runge-Kutta method [5] did give some unusual results. First, 
the magnitude of its times were suspect since one would expect the 
method to be faster than the others based on results for (3.1.1), 
(4.1.1), and (5.1.1). However, since the Mathieu equation is actually a 
linear one with a time-varying coefficient, it may be a difficult one 
for the Runge-Kutta routine [5] to manipulate. The piecewise linear 
method merely approximates the coefficient with a constant, and the 
series approximation to the exact solution is based upon the Mathieu 
functions. 

The scatter in the timing results may have been a consequence of 
the size of the interval of z rather than the equation [60]. It appears 
that DVERK [5] itself may have been directly affected by the magnitude 
of Az since (6.1.1) is a different type of equation than had been 
encountered in the previous chapters. How it is affected by it, and 


subsequent steps it executes could also explain why the execution times, 
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as determined by use of [27], were so large compared with those for the 


others. 
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VIII. CONCLUSIONS 


1. The accuracy of the piecewise linear solution with respect to 
the one being compared will vary with the equation being examined. 
This is dependent upon the presence of damping, the degree of nonlinear- 
ity (if any) and whether the coefficients in these equations are 
constant or variable. 

2. For those cases in which correspondence between the piecewise 
linear solution and the solution being compared is poor, there appear to 
be areas for which the piecewise linear method is unstable, or at least 
limited. The degree to which this occurs will depend upon the equation 
parameters and constants, as well as the size of the increments chosen, 
whether displacement or time. 

Shes The type of instabilities displayed by the piecewise linear 
solutions may be equation-dependent. That is, the instability seen in 
the Van der Pol equation appeared to be different than that displayed by 
the Mathieu equation. This may have to be confirmed by further work 
with these two equations plus the investigation of others. 

4. For large increments of time or displacement (depending upon 
which equation was being solved), the piecewise linear method can become 
uneconomical since it will have a larger execution time compared with a 
smaller increment, and quite often can exceed the time limit set for the 
program used. However, under certain circumstances, the execution time 
of the piecewise linear method can be close to that of the chosen 
standard solution (such as the Runge-Kutta method [5] used as a compari- 
son for the Van der Pol equation), or even cheaper (as was seen for the 


undamped hard spring and Mathieu equation). 
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Die Generally, the piecewise linearization is slower than the 
solution being compared for the system being examined except in the case 
of the undamped hard spring and the Mathieu equations. For the former, 
it was because the approximation to the complete elliptic integral of 
the first kind [15] had to be calculated each time the number of 
segments was increased, while for the Mathieu equation it was because 
the piecewise linearization was simpler than the approximation to the 
exact solution and the Runge-Kutta method [5]. It can be seen here, 
then, that the method of approximating the equation will determine the 
speed (and hence, the cost) of a run. 

6. The tangential method of linearization is slower than that 
using chords, because of the various calculations that have to be 
carried out. The correspondence with the approximation to the exact 
solution [4], [15], [17] appears to be better for chords than for 
tangents, though the latter is more accurate when it comes. to 


calculating period for the undamped hard spring equation. 
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IX. RECOMMENDATIONS FOR FURTHER WORK 


Several questions arising from the results obtained still need to 
be answered. At the same time, there are some areas that can be 
investigated in more detail, extending past what has already been 
examined. The following, then, are some suggested subjects for further 


study. 


A. Mathieu's Equation 

The first thing that comes to mind is the situation with the 
instability of the piecewise linear method. The exact nature as to what 
was occurring has to be resolved, since it is unusual that the piecewise 
linearization solution had behaved rather well until it apparently broke 

down. The actual mechanism behind this has to be examined in depth to 
determine not only what is taking place, but also why, and if there is 
any means of rectifying this. 

On the other hand, suppose that the reason for the instability 
observed in Figures 6.7, 6.9, 6-11, 6.13, 6.14, and pas cannot be 
resolved. One alternative is to try and pursue other methods of 
solving this equation, using a different means of approximating the 
linear segment. If, however, all attempts to solve this problem fail, 
the only other thing that can be suggested is to obtain more data and 
fill in the gaps in Figure 7.2, to see if a boundary between stability 
and instability can be clearly defined. 

In McLachlan [67], reference was made to an earlier paper of his 
[68] that dealt with fractional orders for the solutions. This refer- 
ence, in turn, referred to a paper by Ince on the same subject [69]. 


In [68], a method for determining the order of the solution for a 
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particular Acurss 2nd q is given, based on [69]. This may make the 
solution of (6.1.1) more general in nature compared with what had been 


done in Chgapter VI, as fractional orders can now be included. 


B. Two-Degree-of-Freedom Nonlinear Equations 

Since many physical phenomena can be described by two-degree-of- 
freedom nonlinear equations, one possible approximate method of solution 
is piecewise linearization. However, the major difficutly is in the 
separation of the coupled equations that describe the situation into 
separate modes. 

Some work on this separation has already been done in this area by 
Rosenberg [70], [71], which deals with specific classes of two-degree- 
of-freedom nonlinear differential equations. He also produced a major 
work dealing with this subject, and it appears that this may be of a 
more general nature [72]. 

Since this subject was merely touched upon, some work would be 
required in seeing what is needed for solving specific cases. Once the 
equations have been uncoupled (if such is possible for the particular 
situation being examined), the piecewise linear method can then be 


applied. These references may provide a starting point. 
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APPENDIX 


The following programs were used in obtaining the results for this 


thesis: 


A. HSPRING - Hard spring equation (undamped) 

B. HSPRINGC - Hard spring equation (linear damping) 

C. HSPRINGQ - Hard spring equation (nonlinear damping) 
D. VANDERPOL - Van der Pol equation 


E. MATHIEU - Mathieu eauation. 


These programs were developed and run on the facilities of 


the 


University of Alberta Computing Services [25], [26], with the plot 


routines used being [40], [73]. Material upon which these programs are 


based is found in: 


HSPRINGR=M[4lees(S15. [9], [10], [11], [12], [141.9 115)5 
[16], [18], [20], [22], [23], [24]; 

HSPRINGG oe leat S 12a 20) al 2odie bo0 ls 

HSPRINGQ - [5], [18], [20], [29], [30]; [74]; 

VANDERPOL - [5], [30], [32], [34], [38], [39], [74]; 


MATHIEU - [5], [34], [42], [43], [58]. 


The signum function as defined in [74] was used in HSPRINGQ 


VANDERPOL. The major reference for the program code was [/5]. 
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PROGRAM HSPRING 


THE FOLLOWING PROGRAM CALCULATES AND COMPARES THE SOLUTIONS 
FOR THE EQUATION: 


X(DOUBLE-OOT)+Asx+82(X*23)20 
OBTAINED BY PIECEWISE LINERIZATION (USING CHOROS AND 


TANGENTS) WITH THAT OF AN EXACT RESULT, AND PLOTTING ALL 
THREE SETS OF VALUES. 


THE RESULTS ARE FOUND FROM THE FOLLOWING APPROXIMATIONS: 


CHORDS: XBXOSC+(KXOC-KXOSC) *COS(PC#(T-TOC) ) 
+(XDOTOC/PC)*#SIN(PC#(T-TOC)) 


X(DOT)#@-PC#(XOC-KOSC)*SIN(PC2(T-TOC)) 
+KOOTOSCGS(PC#(T-TOC) ) 


TANGENTS: XSKMOST+(XOC1-KOST)2COS(PT#(T-TOT) ) 
+(XDOTOT/PT)*®SIN«(PT#(T-=TOT) ) 


X(DOT)&-PT#(KOCIi-KXOST)*SIN(PT#(T-TOT)) 
+XDOTOTSCOS(PT*(T-TOT)) 


THE VARIOUS PARAMETERS ARE EXPLAINED AND CALCULATED IN THE 


= 
= 
= 
=z 
= 
z 
= 
Sa 
= 
= 
z 
* 
z 
= 
s 
= 
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EXACT: X=XOE*®CN( LAMBDA, OMEGAE®T) s 
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PROGRAM. 3 
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IMPLICIT REAL#&8 (A-H,0-7Z) 

REAL#& DELTAK(200) , TAUC( 200) , TAUT( 200) 
REAL*8&8 J,K,LAMBODA,M 

REAL#&4 AMPLE(200) ,AMPLE( 200) , AMPLT(200) ,TE(200) ,TO( 200) ,TT( 200) 
REAL®4 YC(200) ,TCP(200) ,YT(200) ,TTP(200) 
REAL®4 KA(2),YA(2) 

REAL#4 HA,HB,HC,VA,VB,VC 

INTEGER*4& ALPH(20) 

COMMON/COEFF/A,8 
COMMON/ELLIP/PI1,LAMBOA,K 
COMMON/ENDOC/XOC 

COMMON/ENDIC/X1C 

COMMON/CROSSS/XOSC 

COMMON/VIBC/PC 

COMMON/ENDOT/XOT 

COMMOM/ENDIT/XiT 

COMMON/CROSST/XOST 

COMMON/SHARE/XOC2 

COMMON/VIBT/PT 
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THE FOLLOWING VALUES ARE REAO FROM DATA FILE HSPRINGDATA: 


A,B=AS IN THE EQUATION 
DISPLOSINITIAL AMPLITUDE 
VOfINITIAL VELOCITY 
TO=INITIAL TIME 


HA,HC2PLOT PARAMETERS FOR HORIZONTAL AXIS (HC AN INTEGRAL MULTIPLE 
OF 8.90) 


VC2PLOT PARAMETER FOR VERTICAL AXIS (AN INTEGRAL MULTIPLE OF 7.0, 
7.0 GIVING BEST RESULTS) 


XA, YA2PARAMETERS FOR PLOTTING ZERO LINE 


ALPHZARRAY FOR PLOT AXIS LABELS 


POPES EE LA ALAA LAL A AAA Added ds hedsdchsAahsdetsdsdatstedstedsdedsdahstededatetahadsdetedsMsdaAdshsdedadsdahsdedadedel 


READ(S,10) A,B 

FORMAT (2010.6) 

READ(5,20) DISPLO,V9O,TO 
FORMAT(3010.6) 

READ(S,30) HA,HC 
FORMAT(2F10.4) 

READ(S,40) YC 

FORMAT(F10.4) 

READ(S,50) XA(1) 

FORMAT(F10. 4) 

READ(S,60) YA(1),YA(2) 
FORMAT(2F 10.4) 

READ(S,70) (ALPH(I),1=1,12) 
FORMAT(12A4) 

READ(S,80) (ALPH(I),1213,16) 
FORMAT(4A4) 

READ(S,90) (ALPH(I),1=17,20) 
FORMAT (444) 


P1=3.141592653589793 
BETA=B*(DISPLO**2)/A 


CHHHHHHHHHHHHAHHHHHMAMHMHHHEM MAMMA 


‘ 
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c 

c MOESAMPLITUDE OF EXACT SOLUTION 

c 
c LAMBDA=MODULUS (FOR EXACT SOLUTION) 
c 
c 


i etetedsdsdedededideh ddeded ded ddeddudadadehidiheded Ad doddeddddeddddeddded AAA A 
KXOESOISPLO 


LAMBDAZOSORT(0.5/((1.0/BETA)+1.0)) 


CHHHHHNHONMHH HER EHHEH HMMM EDM 
Cc 


¢ ELLINT#SUBROUTINE FOR CALCULATING THE COMPLETE ELLIPTIC INTEGRAL 
c OF THE FIRST KINO 
Cc 


Th Ete ddd dh ddd Lh hd ddd ddd ddd dd deddddeddadddededed deh AAA AoA LAA Ld 
CALL ELLINT 
CHHPHEMHHMHHAH EONAR EERE EHRMANN OHNO ERE 


c 

c OMEGAESEXACT SOLUTION ANGULAR FREQUENCY 
c TIMESCUMULATIVE TIME FOR EXACT SOLUTION 
c DELTATZSTIME INCREMENT 
c 
c 


ies ha ate staehedistiatstsatisdstedsdetatehehatdshedsdahedadadedsdadedidedetehdudahedubdotadedahatstededededudededodetadedehedudedadodetededed 
OMEGAEZ0SORT(A*(1.0%BETA) ) 
TIME=TO 
DELTATSK/(100.0#0SORT(A2(1.0+BETA) )) 
00 1060 N=1,1071 
USOMEGAE=TIME 
TE Bk add de heh dada d Aehedidhdedeheheh dedehdeddedddeddedededoddehadudsdoddodedehadudedsdodededehadededodadedehedadedodudehekedad 
c 


c OJCBYFSSUBROUTINE FOR EVALUATING JACOBIAN ELLIPTIC FUNCTIONS 
c (SEE UBC MANUAL "UBC FUNCTION" FOR DETAILS) 
c 


TEE ddd hd datdad ddd dda dd ddaded ddeddaduddadadadhedudadadedehededidehuksdadedudededadedadedededededdekaheAakoded 
CALL DJCBYF(U,LAMBDA,OSN,DCN,DON,IE,6) 

A Ah eh ede ddd hd ddd ddd ddd dad ddd Ad dd dedededadeadddudededohudedhudedsdadedeh Aekedededadededadoded 

c 


c AMPLEZARRAY FOR INSTANTANEGUS AMPLITUDE (FOR PLOTTING) 
c TE=ARRAY FOR TIME (FOR PLOTTING) 
c 


Teh Makaha heheheh Aadstahadehshshehshdedehededehshstedsdatahedatadadadadsdadadeheishedahedutededsdahahshedadahehetedadedadededel 
AMPLE(N)=2XOE®OCN 
TE(N)=TIME 
TIMESTIME+DEL TAT 
100 CONTINUE 
EEE Rath dah hah hat hahshahetahidadehahsdadahshidehahsdshetahshahieistehuehatshatetatshedshasdsdaihadsdahededehedstehahededededed 
c 


c TAUEZEKACT PERIOD 
c BIG=LARGEST VALUE OF QUARTER-PERIOO (FOR PLOT SCALING) 
c 


SE Mats h heheh ded hth hahah A hihi Red dated tested Aaah Msdadatatatehahahehshidedidadatadadehadedatedtstatsteheheedadshetadedshal 
TAUES4 . O#K/OSORT(A#(1.0¢BETA) ) 
BIG=TAUE/4.0 

CHM HM MH OA OO HOM HOO HOH HE HOD HR HE Ot OO OO OY HOO OP SO OO 8 OO OH OO oe ea 


THE FOLLOWING OO-LOOP (ENDING AT STEP 260) CALCULATES THE 
PIECEWISE LINEAR PERIOOS (FOR BOTH METHODS) BASED ON THE 
PARTICULAR NUMBER OF SEGMENTS CHOSEN. 


NC=ZNUMBER OF CHORDS (INITIALLY SET AT §) 
NT=NUMBER OF TANGENTS (INITIALLY SET AT 6) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c XOC,XOTSINITIAL DISPLACEMENT FOR EACH SUCCESSIVE SEGMENT FOR 
c CHORDS AND TANGENTS, RESPECTIVELY 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


KDOTOC, XDOTOT=INITIAL VELOCITY FOR EACH SUCCESSIVE SEGMENT, AS 
ABOVE 
TOC, TOT=INITIAL TIME, FOR CHOROS AND TANGENTS, RESPECTIVELY 


KOCISINITIAL CROSSING POINT FOR TANGENT LINES OF TWO ADJACENT 
SEGMENTS (SEE SUBROUTINE XSHARE BELOW) 


DELTA=LENGTH OF SEGMENT 
DELTAX=ARRAY FOR DELTA 


PPE AAA LLAALA LAA cd Ak Ad A Adsdihedehdedutsdsedstatstehededatatadsdstedahesdstetshedshededitsdestededhshadsdadehidedadel 
NC=S 
00 260 [21,20 
NTSNC+ 
HeNC 
XOC=DISPLO 
XOT=OISPLO 
XDOTOC=VO 
XxDOTOT=VO 
TOC=TO 
TOT=TO 
MOC1=O0ISPLO 
DELTASDISPLO/H 
DELTAX(I)SDELTA 
CHHMHHHHHHHHHMAEMHHHOHMEM MAAN HMMM HHH 


THE FOLLOWING SECTION CALCULATES THE PERIOD FOR THE METHOD OF 
CHORDS (ENDING AT STEP 110). 


c 
c 
Cc 
c 
c 
c 
c X1C=DISPLACEMENT AT END OF SEGMENT 

CV ANHNHHHHHHHHUHHHHNHNAHRHHHHHAAHHHHHAHHHHNENHEHHHHH HEHEHE MAHAN H 


X1C=xXOC-DELTA 


po 110 N=1,NC 
CH HHA RHE HEMMER AAEM HEHE EAE EOE 


XPC=SUBROUTINE FOR CALCULATING POINT WHERE SEGMENT CHORD LINE 
CROSSES X-AXKIS 


c 
c 
& 
(e; 
c FREQOC=SUBROUTINE FOR CALCULATING ANGULAR FREQUENCY 
c 

c 


HAMM HAIMA AREA HE HEI HEA AEA HD EH AEE 


208 


o0OOrh) - | 6b04) 


7 - 


beecarse @ wreor 


s9ee pe ~. Retina 


? “uw aa erences 
- ae ej ege 1@*® @ henmeu sem : 
a may ; 
«HOO Od OVERS 191098 O0d 6 9OEE OO) 00058548 cer + <OO—SaRes 
—— obese ve vote 


er sa ceomnnen ony 


* 
00 1 eOte—e (10s eek tag phme *etOE ge) wemnee rt ceepaapennnntesiiien ‘ 
senitiag® Oy be wt hems co) eee ds Scie 
- nal - 


bite ee. 000 Teerenae® pire 6 


eats esneeoos pen bee 6s 6.288 te he ecg oe tce 
TT: of § 26a, pearrer 
av re Tere eee er ee ea ie 646 664 


vad ?'O-@ G65, beet cee suet ssentee: awe opamees seme 
eors as) oS: peer own 7, ee. . 


Werereereriereitt?! ciel thee To) savensonentaes 
erasonres 


Bebe” GPO C2 GE > 028 1h Ow HRbr HR © COE 6 © OH ~ FP ORE Be + OOS 6 OOFE OOS OGRE ET 


- +400 Pieemenuat 

gurisse tale a€° @*° oer! Sep> @ GOP Vepeee scones 

_ 

©1OoOt 0 6996 6h ©0400 166 6e64 bags VEicoO8 10646 t.co a O0emte 
s¢iee<e 


es FO? 206 © G9 0Ge+ 66 « §6O0S6 0609008 a 


ee ebb Oe oop *Ses ¢s Cheese: 460640 woven aur 3 
> ent, Staples =e qe 78 GOGhee* Masel!) Gnyehwns > 
ey 48e@ ¢ Fee@ger §* @uaees 4ae05 11 Ras . 
i= 
yee pany Bi oummnany .' 2 
4 Te «to TTT. © 7 - 
Se eee Vibe @¢! @4ceth | i‘: 
ce* *sepn ee @F ©69C == Of% °epewteaseqgs Pret eeee 9 


ae) ©? G6@G=—g* om © oe - 


se  -eeuse® Pre &2 eats ee 66 «1 poIm ONT sous? canes a 
i ® 


FVicwRedet Fi wergn® ee ona #98 “7 iecceet, 


(oA or ber 46 Gar “rieee* fue secon QHiqnee® gates 
a jes 4 Oe eeKRee GO! 1p mss 


oF 7 
ie by ee © heeei pat 
64 @ kG a 
aed ia A ty, ‘le? seria aaa Oo optetsqpeuaayet ° 


meat ag a - 


ee 


ahr shitty aln ahleahd 
i caorer bee eet wander oe were iet 


221 
222 
223 
224 
225s 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
287 
248 
249 
280 
251 
252 
283 
254 
2585 
256 
287 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
266 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
273 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
2391 
232 
293 
294 
295 
296 
237 
2398 
299 
300 
301 
362 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
a7. 
318 
3193 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


CALL xPC 
CALL FREOC 
CHHHMHER UHHH REM HHH HHO NE EMO H HE OHNHEE EHH OHHH ERMA EHH ROMEO 


THE FOLLOWING SOLVES THE TRIGONOMETRIC EQUATION: 
C3C2=C1C*®COS(THETAC)+C2C#SIN( THETAC) 

WHERE: 

THETACZPC(TIC-TOC) 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c T1iC BEING THE CUMULATIVE TIME TAKEN TO REACH THE END OF THE 
c SEGMENT BEING EXAMINED. 
c 
ST dda ded ded dud dhadadadhedshsdeded dddudeddeddddddediddd dda 
C1C2#x0C-xosc 
C2CexXOGTOC/PC 
C3C=ex1C-xosc 
THETAC20ATAN(C2C/C1C)+O0ARCOS(C3C/DSORT(CIC#e2+C2C##2) ) 
TICZTOC+THETAC/PC 
Ld alias hehehahehed ddadededaddideddiddededdudediddudededddadideddadiddudaddddd LU 
c 


c AMPLCZARRAY FOR XOC (FOR PLOTTING) 
c TCZARRAY FOR TOC (FOR PLOTTING) 
€ 


TE Ahad A deeddd ds dehedidddedditdad ddd dddddddddidodd sds Lae LLL LL 
AMPLO(N)SXOC 
TC(N)STOC 
TA i Added ddd ddd dd ddd ddd d ddd dd ddd dd ALLEL 
c 


c RESETTING THE INITIAL CONOITIONS FOR THE NEXT SEGMENT. 

c 

adel adatehadsthedsdetehededededitdedededdadededddedededed dddddAdddedededdadaddedddaddddd Added dd ddae 
xOC=ExX1C 


X1ICSKXOC-DELTA 
XDOTOCS-PC*(CICSOSIN( THETAC) -C2C*0COS(THETAC) ) 
Toc=Tic 
110 CONTINUE 
Mh hk hihedhhedidhidd ded dihided dadetdehed dudedddoddedadedddeddudeddddedadadd Ad dddaddedadd cdddedddddad 
c 
c TAUCSARRAY FOR PERIOO FOUND USING CHORDS 
c 
LT hahah hahahaha hedetesteth shsdadahehidadedededehsdedrdddrdedsd ddd ddsdadededadededdedadededededededaddededdadededddadddededed 
TAUC(I)24.0*#T1C 
IF(TIC.GE.BIG) BIGZTIC 
NOCSNC+1 
AMPLC(NDC)2XOC 
TC(NDOC)=TOC 
CHHHHHHHHOHHHH HAHN HAHN HRO WMH EH RENN ONAN OTHE 


THE FOLLOWING SECTION CALCULATES THE PERIOD FOR THE METHOD OF 
TANGENTS (ENDING AT STEP 120). 


c 
c 
c 
c 
c 
c 
c X1TSOISPLACEMENT AT ENO OF SEGMENT 

c 

c 

Rbk de dd hh ddd hhh dd ded da ddaddd Added dadedededsdedadddudded Aadedudedddedededaded 

X1ITZXOT-OELTA 


00 120 N21,NT 
Me de A dd ddd dd ddd ddd ddd dd deh A ddddrddedsdedshudadsdsdsdhahdedshsdadedadadudetsddededad Aadadededed 


XSHARE=SUBROUTINE FOR CALCULATING THE CROSSING POINT FOR TANGENT 
LINES OF TWO AOQJACENT SEGMENTS 


c 
c 
c 
c 
c XPTSSUBROUTINE FOR CALCULATING POINT WHERE SEGMENT TANGENT LINE 
c CROSSES X-AXIS 
c 
c 
c 
c 


FREQT2SUBROUTINE FOR CALCULATING ANGULAR FREQUENCY 


EA hates Mads MadsdhsAateatredhaaadedateatsdetadsdhsteetededsAMsMaMad Meds MedaAsheddesadeddsdsdsehsd Madd Ahetetsheddedsdadededdadedad 
CALL XSHARE 
CALL XPT 


CALL FREOT 
ee Ad Ad dh Ad dh Rade ded itstesda deta edad sMadsdadadeMet sds MadeddadsAsdhatsdshatsdsdetsedidedsdeadededehedadeMedadshadedebedededad 


THE FOLLOWING SOLVES THE TRIGONOMETRIC EQUATION: 
C3TSCit*COs( THETAC)+C2T*SIN( THETAC) 

WHERE: 

THETAT=PT(TIT-TOT) 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c TIT BEING THE CUMULATIVE TIME TAKEN TO REACH THE END OF THE 
c SEGMENT BEING EXAMINED. 
c 
ee ELA AA AA RAs Rehahate Racha aadadadhsdatedhadadehadadhedsdedetatstathethshaRahshaRadsMedsMahatetsde RehetehadadeRshstedatadedstadadededed 
C1T=xocC1-XoOsT 
C2T=XDOTOT/PT 
C3T=xXOC2-xXOST 
IF(OABS(XKOT).LT.1.00°10) C3T=-XOST 
THETAT=DATAN(C2T/C1T)+O0ARCOS(C3T/DSORT(CIT#*24+C2T**2) ) 
TITSTOT+THETAT/PT 
Ct -AEWOEWMAEMOEHEHHHESEAAHEI 


c 

c AMPLTZOARRAY FOR XOC1 (FOR PLOTTING) 
c TT=ARRAY FOR TOT (FOR PLOTTING) 

c 


CHHHHMHHHMMMHHHOMHHHHAMEEHRHMH HAHAHAHAHA 


AMPLT(N)=XOC1 


TT(N)STOT 
CMH WAAAY 


c 


Cc RESETTING THE INITIAL CONOITIONS FOR THE NEXT SEGMENT. 

c 

CHHHAHHHHHMHMHH HHO AMMA HHH 
XOT=X1T 
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331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
346 
343 
380 
351 
382 
383 
354 
355 
386 
387 
358 
3593 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
376 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385s 
386 
387 
388 
389 
3390 
391 
392 
333 
394 
3935 
3396 
337 
338 
398 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
41s 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
43a 
4393 
440 


XITEXOT-DELTA 
XDOTOTZS-PTz(CITSOSIN( THETAT)-C2T*DCOS(THETAT) ) 
TOTsTIT 
KOC12XKOC2 
1260 CONTINUE 
oO MR MENON HUHONAHUNHUHONYNYNUNYHYNORYYHUNYNYHHNHHHURYEHEHHUYNHHHOH OHHH 


TAUT=PERIOO FOUND USING TANGENTS 
hada hed ddd Medded dddaddddedadhddiddddehddudseddd ddd ace Le 
TAUT(1)38.08T1T 
IF(TIT.GE.B8IG) BIGsTIT 
NOTSNT+1 
AMPLT(NOT)2xKOCi 
TT(NOT)2TOT 
nt OREM EAN ONEEFERIULENENUUNURNERENRIERUORYLYONDEN ODN UENO HOUHOD UHH ANI FS 8 


c THE NEXT FEW LINES ARE USED IN FINALIZING ALL THE PLOT PARAMETERS 

c WHICH INCLUDES AXIS SCALING. 

c 

Th hhh hheded bedded ddd ddddiddddddedid ddd dd ddd dddd adda TL 
Msi 


IF(DISPLO.LE.1.0) GO TO 1640 
130 CONTINUE 
OECD=DISPLO/(10.0n2m) 
IF(OECD.LE.1.0) GO TO i160 
MeM+i 
6G TO 1230 
140 CONTINUE 
BDIGDSOISPLO2(10. 02m) 
IF(O0IGO.GE.1.0) GO TO 1580 
MBeMe) 
GO TO 1406 
150 CONTINUE 
OECD#01GB/10.0 
Me-(M-1) 
160 CONTINUE 
IF(OE&CDO.LE.0.1) VFACT=0.1 
IF ((0ECD.GT.0.1).ANO.(DECD.LE.0.25)) VFACT#0.25 
IF((0ECD.GT.9.25).ANO.(DECO.LE.0O.S)) VFACT#O.5 
IF((O0€CD.GT.0.5).AND.(DECD.LE.1.0)) VFACT21.0 
VBS(VFACT/(VC-2.0))*10.022m 
VAz-VB 


Mei 
IF(BIG.LE.1.9) GO TO 180 
170 CONTINUE 
OECTS=BIG/(10.0=%m) 
LEC DECT EES. Ope GO TOe200 
MsMe) 
GO TO 170 
186 CONTINUE 
OIGT=B1G*(10.022m) 
IF(OIGT.GE.1.0) GO TO 190 
Meme 
GO TG 180 
190 CONTINUE 
OECT=DIGT/10.0 
Mze-(M-1) 
200 CONTINUE 
IF(OECT.LE.0.08) HFACT=0.1 
IF((DECT.GT.0.08) .AND. (OECT.LE.O. 


16)) HFACT=0.2 
IF((DECT.GT.0.16).AND® (DECT.LE.0.4) 

») 

») 


HFACT20O.5 
HFACT=1.0 
HFACTS2.0 


) 
) 
IF((O0ECT.GT.0.4). AND. (DECT.LE.O.8 
IF((DECT.GT.0.8). AND. (OECT..LE.1.0 
HBZHFACT#10, 02#2(M-1) 

LONG=HC 


MA(2)Z0FLOAT(LONG) ®HB-0.005 
CH HM MH OO HO A HOE AAEM MP AO AOA 


THE FOLLOWING SECTION SETS UP THE CHORD AND TANGENT RESULTS SO 
THAT 6 POINTS OF THE CHORD SOLUTION ANO 7 OF THE TANGENT VALUES 
ARE PLOTTED FOR A CLEARER PRESENTATION, WITH THE PLOTS BEING 
ALTERNATED FOR COMPARISON PURPOSES. 


c 
c 
c 
c 
c 
c 
c YCZ=ARRAY FOR PLOTTED CHORD DISPLACEMENTS 

c TCPZARRAY FOR PLOTTED CHORD TIME VALUES 

c YT=ORRAY FOR PLOTTED TANGENT DISPLACEMENTS 
c TTPZARRAY FOR PLOTTED TANGENT TIME VALUES 
c 

c 


MIME IEW HWE HO EAE OHE OA AE AE EOF AMEE OA aA 

INCC=NOC/S5 
INCTSNOT/S 
INCRT=INCT/2 
IF(NOT.LT.10) INCRT=1 
NCC=1 
NCT=1 
NPC=i 
NPT=i 

210 CONTINUE 
YC(NPC)=AMPLC(NCC) 
TCP(NPC)=TC(NCC) 
IF(NCC.EQ9.NDC) GO TO 220 
NPC=NPC+1 
NCC=NCC+INCC 
GO TO 210 

220 CONTINUE 
YT(NPT)=AMPLT(NCT) 
TTP(NPT)=TT(NCT) 
IF(NCT.EQ.1) GO TO 230 
NCT=NCT+INCT 
GO TO 240 

230 CONTINUE 
NCT=NCT+INCRT 

240 CONTINUE 
IF(NCT.GE.NDT) GO TO 250 
NPT=NPT+1 
GO TO 220 

250 CONTINUE 
NPT=NPT+1 


210 
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441 
442 
843 
444 
44s 
446 
447 
448 
449 
450 
4s1 
4aS2 
453 
454 
4s5 
456 
4as7 
458 
asa 
860 
461 
462 
463 
864 
465 
466 
467 
668 
469 
870 
a7i 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
431 
492 
493 
494 
495 
496 
497 
438 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
515 
517 
518 
519 
520 
§21 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
$41 
542 
543 
544 
545 
546 
547 
548 
549 
550 


YT(NPT) ZOMPLT(NOT) 
TTP (NPY )=TT(NDT) 


COHREEHHN HHRMA NEH HOMME OOH HM ENON H HEH OR OHM EH HEH 
c 


€ PLOTTING THE SOLUTIONS. CONSULT THE WRITEUP ON CGPL/CGPL2 AND 
€ THE MANUAL ON DIGITAL PLOTTING FOR DETAILS. 
c 
COMMHERMRAN EHH HEA HHNUNHHMMHNH WHO HERH OURAN HA EAH HRH ANH HEH 
ND2101 
NFet 
CALL CGPL2(TE,AMPLE,NO,NF,5,HA,HB,HC,VA,VB,VC,ALPH) 
NOZNPC 
CALL CGPL2(TCP,YC,NO,2,1,HA,HB,HC,VA,VB,VE,ALPH) 
NDZNPT 
CALL CGPL2(TTP,YT,NO,3,1,HA,HB,HC,VA,VB,VC,ALPH) 
NFse 
CALL CGPL2(KA,YA,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 
HORIZ=HA 


VERT=VC+0.5 

CALL PLOT(HORIZ, VERT,3) 

RORIZ=HC 

CALL PLOT(HORIZ, VERT,2) 

VERTEVERT+5 .0 

CALL PLOT(HORIZ, VERT, 2) 

HORIZEHA 

CALL PLOT(HORIZ, VERT,2) 

VERTSVC+0.5 

CALL PLOT(HORIZ, VERT,2) 

STARTX2(HCO-7.0)/2.0 

STARTYsVC+0.5 

RORIZ=ESTARTX*+O.2 

VERTSSTARTY+4.6 

CALL SYMBOL(HORIZ,VERT,0.2,'A =’,0.0,3) 
HORIZSSTARTX+1.0 

CALL NUMBER(HORIZ,VERT,0.2,A,0.0,4) 
HORIZ=SSTARTX*+3.5 

CALL SYMBOL(HORIZ,VERT,O.2,’°8 =°,0.0,3) 
HGRIZZSTARTX+4.3 

CALL NUMBER(HORIZ,VERT,©O.2,8,0.0,4) 
HORIZ=ESTARTX+6.2 

VERTESTARTY+3.9 

CALL SYMBOL(HORIZ,VERT,©.2,‘'NO. GF SEGMENTS (APPROX. TO EXACT’,0.0 
rete) 

HORIZESTARTX+0.6 

VERTSSTARTY*+3.6 

CALL SYMBOL (HORIZ, VERT,0O.2,‘SOLN.) = 100‘ ,0.0,12) 
HORIZSSTARTX+0.2 

VERT=STARTY+3.2 

CALL SYMBOL(HORIZ,VERT,O.2,’°NO. OF CHORDS =’ ,0.0,18) 
HORIZ=STARTX*3.4 

CPOINT=OFPLOAT(NC) 

CALL NUMBER(HORIZ, VERT,0.2,CPOINT,©.0,-1) 
HORIZESTARTX*+0.2 

VERTZSTARTY+2.8 

CALL SYMBOL (HORIZ,VERT,©O.2,’NO. OF TANGENTS #°,0.0,17) 
HORIZ=STORTX+3.8 = 
TPOINTZOFLOAT (NT) 

CALL NUMBER (HORIZ,VERT,©O.2,TPOINT,O.0,-1) 
HORIZ=STARTK+O.2 

VERT=Z=STARTY+2.0 

CALL SYMBOL (HGRIZ,VERT,©O.2,‘'X(0) #°,0.0,6) 
HORIZ=STARTX+1.6 

CALL NUMBER(HORIZ, VERT,9O.2,DISPLO,90.90,4) 
HORIZ=STARTX+3.5 

CALL SYMBOL(HORIZ,VERT,©O.2,'°X(90) =’,0.0,6) 
HORIZ=STARTX+3.525 

VERTESTARTY+2.3 

CALL SYMBOL (HORIZ,VERT,©O.2,75,0.0,-1) 
HORIZSSTARTX*+4.9 

VERTSSTARTY+#2.0 

CALL NUMBER(HORIZ,VERT,O.2,V0,0.0,4) 
HORIZ=STARTH+O.3 

VERTESTARTY+1.1 

CALL PLOT(HORIZ,VERT,3) 

HORIZ=ESTARTX+0.8 

CALL PLOT(HORIZ, VERT,2) 

HORIZ=ESTARTX+1.0 

VERTESTARTY+1.0 

CALL SYMBOL (MORIZ,VERT,9O.2,’APPROX. TO EXACT SOLN.’,0.0,22) 
HORIZ=STARTX+0.6 

VERT=STARTY+0.7 

CALL SYMBOL (HORIZ,VERT,©0.2,1,0.90,-1) 
HORIZ=STARTX+1.9 

VERT=STARTY+0.6 

CALL SYMBOL(HORIZ,VERT,©O.2,’CHORDS’ ,©O.0,6) 
HORIZ=STARTX+0.6 

VERTESTARTY+0.3 

CALL SYMBOL (HORIZ,VERT,O.2,2,90.0,-1) 
HORIZ=STARTX+1.0 

VERTESTARTY+0.2 

CALL SYMBOL(HORIZ,VERT,©O.2,’TANGENTS’ ,0.0,8) 
NF=O 

CALL CGPL2(XA,YA,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 
CM MAE EOE HEATH AEE AAA aaa 


c 


c INCREMENTING THE NUMBER OF LINEAR SEGMENTS. 

c 

CoM AM WEEE HOA AE HEE OEE a 
NC=NC+S 


260 CONTINUE 
CM WH WWM HEHE OEHHA HOHE AYE HOA IEA H 


c 
c THE CALCULATED VALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGNUM 


c 
CW HEM HHH IAEA EAE 


WRITE(10,270) 
270 FORMAT(’1’,’PERIODS FOR THE EQUATION: ’) 


WRITE(10,280) 
280 FORMAT( ‘0’, 'X(DOUBLE-DOT)+A®X+B8* (X*¥*3)=0' ) 


WRITE( 10,290) 
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$51 
552 
§S3 
554 
sss 
S56 
$s7 
558 
ss9 
S60 
S61 
S62 
$63 
S64 
sés 
S66 
S67 
568 
s63 
s70 
s71 
572 
$73 
S74 
s75s 
S76 
S77 
$78 
s79 
S80 
ssi 
582 
$33 
584 
sas 
S86 
S87 
58s 
589 
590 
s91 
$32 
§93 
$34 
595 
S36 
$37 
s98 
sss 
600 
601 
602 
603 
608 
60S 
606 
507 
608 
603 
610 
611 
612 
613 
614 
615 
616 
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618 
619 
620 
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623 
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625 
626 
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629 
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631 
632 
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644 
645 
846 
647 
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650 
651 
652 
653 
654 
655 
656 
6S7 
658 
659 
660 


290 FORMAT(’0O’,*QBTAINED BY PIECEWISE LINEARIZATION’ ) 
WRITE(10,300) 4,8 

300 FORMAT(’O’, ‘B28’ ,G20.10,2X, ‘B=’,620. 10) 
WRITE(10,310) DISPLO,VO 

310 FORMAT(‘0’,‘X(0)#’ ,G20.10,2x,‘X(DOT)(0)=’, 620.10) 
WRITE( 10,320) TAUE 

320 FORMAT(‘0O’, ‘XACT SOLUTION PERIOD=‘ ,G20.10) 
WRITE( 10,330) 

330 FORMAT(‘’-’, 8X, ‘DELTAX’,16X, ‘CHORDS’ ,15X, ‘TANGENTS ) 
06 380 121,20 
WRITE(10,340) DELTAX(I),TAUC(I),TAUT(I) 

360 FORMAT(1X,3(G20.10,2x)) 

350 CONTINUE 
STGP 
END 


ehh Meda Mh edd dead d ddd dddiddd ddudsduddoddadedddedddedadoddedd Added Add dd A oO 


THE FOLLOWING SUBROUTINE CALCULATES THE FIRST ONE HUNORED TERMS OF 
ABN INFINITE SERIES APPROXIMATION OF THE COMPLETE ELLIPTIC INTEGRAL 
OF THE FIRST KINO. SEE Ssecr. 17.3, P. 5981, "HANDBOOK OF 
MATHEMATICAL FUNCTIONS WITH FORMULAS, GRAPHS, AND MATHEMATICAL 
TABLES", M. ABRAMOWITZ AND I. G. STEGUN, FOR DETAILS. 


KSCALCULATED VALUE 


aANnnNNnnANAnANANNAAHAAHANKMAHnNHNnA 


salsa ateed adidas sdiediastahststiededadhathetedstedetadsdudadedsdedededededstedededededdeddedadededudddedededededededadedededededededadeded 

SUBROUTINE ELLINT 
IMPLICIT REAL*8& (A-H,O°2) 
REAL&8 J,K,LAMBDA,M 
COMMON/ELLIP/PI,LAMBOA,K 
M=SLAMBOAs*2 
COEFF21.0/2.0 
SUM20.252M 
06 300 N21,98 
JENe1.0 
COEFFSCOEFFe(2.0#4N-1.0)/(2.08)) 
TERM2 (COEF Fes2)#(Mee(N+1) ) 
SUMESUM+TERM 

300 CONTINUE 
K=(P1/2,.0)#(1.0+SUM) 
RETURN 
ENO 


| Aedeedatehe hahahah hed dshehs dada deh d ddd bedded Adah dehedAbededsdedAahetdedadadadedd Added Add dodehsdededadadadedadadeded 


c 
c 
c 
c 
c 
c TRE FOLLOWING SUBROUTINE CALCULATES THE POINT WHERE THE INTERVAL 
c CHORD LINE WGULD CROSS THE X-AXIS. 
c 
c 
i 
c 
c 


PC=CALCULATED VALUE 
XOSC=CALCULATED VALUE 


| edhe tatehsdatedadadadsdededadatadahadededededetadudatedededadadedatededededsheddedsdedadededadedsdadadeddsdadededededsdedededededoded 
SUBROUTINE XPC 
IMPLICIT REAL=& (A-H,O-2) 
COMMON/COEFF/A,B 
COMMON/ENDOC/XOC 
COMMON/ENDIC/XKI1C 
COMMON/CROSSC/XOSC 
FOSAsXOC+B# (XOC##3) 
FizQ*X1iC+B2(x1iCe*3) 
MOSC2(X1C-(F1/FO)*xXOC)/(1-(F1i/FO)) 
RETURN 
ENO 


Ce eA ee A hhh ehhh hadnt hstatshahadaedah Mediedihadsdsdedsdesdadededahseteadadedated 


THE FOLLOWING SUBROUTINE CALCULATES THE ANGULAR FREQUENCY FOR 
AN INTERVAL USING CHORDS. 


OE A A A hhh hah Redeshada Re RathatadsdeadadsAidatsRadhstadsdadaadsMadididsdesMet dhs Maddsatsda Reeds Behe dat dated Redan Medea 
SUBROUTINE FREQC 
IMPLICIT REAL*8 (A-H,0-2Z) 
COMMON/COEFF/A,B 
COMMON/ENDOC/XOC 
COMMON/ENO1C/X1C 
COMMON/VIBC/PC 
FO=AsxXOC+B82(xXOCF*3) 
F1zAa*sX1C+B8*(xX1C%%3) 
SLOPE=(FO-F1)/(XOC-X1C) 
PC=OSORT(SLOPE) 
RETURN 
ENO 


c 
c 
c 
c 
c 
c 
c 
c 
c 


HURHAAHHHHHMAMHE HHMI 


LINES OF TWO ADJACENT INTERVALS WOULD CROSS. 


c 
(2 
c 
c 
3 THE FOLLOWING SUBROUTINE CALCULATES THE POINT WHERE THE TANGENT 
c 
Cc 
c XOCZ=CALCULATED VALUE 

c 

c 


MEW HEAE HEHEHE AEWA HEAD EAA AEE AEE EEO 
SUBROUTINE XSHARE 
IMPLICIT REAL*8 (A-H,0-2Z) 
COMMON/COEFF/A,B 
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661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671i 
672 
673 
674 
675 
676 
677 
678 
673 
680 
681 
682 
683 
684 
685 
686 
6387 
688 
689 
630 
6371 
692 
683 
694 
695 
696 
697 
698 
639 
700 
7O1 
702 
703 
708 
796s 
706 
7O7 
708 
703 
710 
als! 
wis 
713 
714 
7158 
716 
wat 
END OF FILE 


400 


410 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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COMMON/ENOOT/XOT 

COMMON/ENDIT/X1T 

COMMON/SHARE/XOC2 
IF(DABS(XOT).LT.1.00-10) GO TQ 400 
SLOPEOZA4+3 O*62( XOT#22) 
SLOPEI=A43 . OF82(X1T#*2) 
FOsAeXOT+B2(XOT#*#3) 
FisAexiT+B82(X1T#*#3) ‘ 
KOC2S(SLOPEO#XOT-SLOPE1*KiT-(FO-F1))/(SLOPEO-SLOPE1) 
GO TO 410 

CONTINUE 

XOCZ2#0.00 

CONTINUE 

RETURN 

END 


be hid dh dade dh hdd ddd dad ddd dedshadadidihadadatadedetahsdedatatatedatetadedatadsdahedesdadedatedatatadadetedsdssdedheldatadeh 


THE FOLLOWING SUBROUTINE CALCULATES THE POINT WHERE THE INTERVAL 
TANGENT LINE WOULD CROSS THE X-AXIS. 


KOSTSZCALCULATED VALUE 


HMA RHARRHHRALRAHAHNRRELHHRNAHRDARRHERE HEH HAH OHHH HH HHH 


SUBROUTINE XPT 
IMPLICIT REAL#& (A-H,0-2) 
COMMON/COEFF/2,8 
COMMON/ENDOT/XOT 
COMMON/ENDIT/X1T 
COMMON/CROSST/XOST 
FrOxXHOT+Bs (XOT#2#3) 
SLOPESA+3. Of Bs (XOT#*2) 
KOST=XOT-F/SLOPE 
RETURN 

ENO 


A Le Ae Add Redd Ahhh didadsdatadadaAidatshetedeetiatsthatisdeaadatsthatateadedetetadadhsAatadshsMidsdithetsdaadstedetstnsteteleteed 


THE FOLLOWING SUBROUTINE CALCULATES THE ANGULAR FREQUENCY FOR 
AN INTERVAL USING TANGENTS. 


PTSCALCULATED VALUE 


Te Eh Added hdd Adak ddahehshadddehshehetstrdstetstetetsdeteiaheded 


SUBROUTINE FREOT 

IMPLICIT REAL#®8&8 (A-H,O-72Z) 

COMMON/COEFF/A,B 

COMMON/ENDOT/XOT é 
COMMON/VIBT/PT 

SLOPE=A+3.O28* (XOT**2) 

PTSOSORT(SLOPE) 

RETURN 

ENO 
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cz 
Cz 
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cs 
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cz 
ce 
ce 
cz 
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PROGRAM HSPRINGC 


THE FOLLOWING PROGRAM CALCULATES THE SOLUTION FOR THE 
EQUATION: 


X(DOUBLE-O00OT)+C#X (DOT) +AtK+Bx(X2#23)30 


OBTAINED BY PIECEWISE LINEARIZATION USING CHORDS, AS WELL AS 
FINOING THE FIRST TROUGH ON THE DISPLACEMENT-TIME CURVE. 


THE RESULTS ARE FOUND FROM THE FOLLOWING: 


z 
= 
=z 
z= 
= 
x 
z= 
= 
= 
z 
x 
z= 
= 
zs 
= 
= 
X2XSTAR+EXP(-N2(T-TO))*(C1#COS(PSTAR*(T-TO)) x 
+C2eSIN(PSTAR#(T-TO))) = 

z 

X (DOT) EXP (-Ne(T-TO))#(C3*COS(PSTAR#(T-TO) x 
+C82SIN(PSTAR#(T-TO))) * 
x 

= 

= 

= 

= 

z 

zs 

=z 

z 

x 

s 

= 

= 

= 


Ci=XO-XSTAR 
C2=(N*(XO-XSTAR)+XDOTO)/P 
C3S°-N*C1+P#C2 
C4=z-P#Ci-N=C2 


THE VARIGUS PARAMETERS ARE EXPLAINED AND CALCULATED IN THE 
PROGRAM. 


THE PROGRAM ALSO SOLVES THE EQUATION USING FIFTH- AND SIXTH- 
GROER RUNGE-KUTTA METHOOS. BOTH SOLUTIONS ARE PLOTTED. 


BEESCKSTE SECC EST SK SKE RTAAERERTATATAL KSEE SKTEREETEKCTECASK SL Kr eE eee 


IMPLICIT REAL#& (A-H,0-2) 
EXTERNAL FCN 

REAL®8&8 Y(2),CN(24),W(2,20) 

REAL®8 N 

REAL=4 AMPLP (200) , AMPLRK(200) ,TP(200) , TRK(200) 
REAL®4 YP(2000),TPP(200) 

REAL#4 xA(2),YA(2) 

REAL*4 HA,HB,HC,V4,YB,VC 

INTEGER®4 ALPH(20) 

COMMON/COEFF/A,B 

COMMON/DAMP/C 


CM HW HW HH HAE HOP HY AO A AE AE OA AO ADO Oat OOOO OPO a 0 


nanannnnnnnnnnnnannnnnnnnn 


ee Ee A A, ceeded hed atha Raat adhadathatesdhadadhadadatemadhethadasdhaMadadaMadatetstaatasas thst Ma MM ads tidal teeth edad adel 


c 
c 
c 


CAH MMOH MEOH AYE HY 


CWE WAHEED OEE AHMET O 


ie) 


10 


20 


30 


40 


so 


60 


70 


8° 


90 


100 


THE FOLLOWING VALUES ARE READ FROM DATA FILE HSPRINGCDATA: 


A,8,C=SAME AS ABOVE 
OISPLOZINITIAL AMPLITUDE 
VO2ZINITIAL VELOCITY 
TIMEOSINITIAL TIME 


H=NUMBER OF DIVISIONS GF INITIAL DISPLACEMENT 
OTIME=TIME INCREMENT (RUNGE-KUTTA SOLUTION) 


HA,HCSPLOT PARAMETERS FOR HORIZONTAL AXIS (HC AN INTEGRAL MULTIPLE 
OFE® 7,01) 


VC=PLOT PARAMETER FOR VERTICAL AXIS (AN INTEGRAL MULTIPLE OF 12.0, 
12.0 GIVING BEST RESULTS) 


XA,YASPARAMETERS FOR PLOTTING ZERO LINE 


ALPH=SARRAY FOR PLOT AXIS LABELS 


HHH MHHAHHAHYMHAH AHMAR 


REA0(5,10) A,B,C 

FORMAT (3010.6) 

READ(S,20) OISPLO,VO, TIMEO 
FORMAT(3010.6) 

READ(S,30) H,DOTIME 
FORMAT(2010.8) 

READ(5,40) HA,HC 
FORMAT(2F10.4) 

READ(S,50) VC 

FORMAT(FI1O. 4) 

READ(S,60) XA(1) 
FORMAT(F10. 4) 

READ(5,70) YA(1),YA(2) 
FORMAT(2F10.4) 

READ(5,80) (ALPH(I),I=1,12) 
FORMAT(12A4) 

READ(5,90) (ALPH(I),1=13,16) 
FORMAT (44) 

READ(S,100) (ALPH(I),1217,20) 
FORMAT (44) 


N2DAMPING FACTOR 


N=C/2.0 
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c SETTING THE INITIAL CONDITIONS. 
c 
c XOSINITIAL DISPLACEMENT FOR EACH SUCCESSIVE SEGMENT 
c XDOTOZINITIAL VELOCITY FOR EACH SEGMENT 
c TOZCUMULATIVE TIME TAKEN TO REACH BEGINNING OF SEGMENT 
c DELTZINITIAL GUESS AT TIME INTERVAL FOR THE SEGMENT BEING EXAMINED 
c (SEE SUBROUTINE TIME BELOW) 
c 
c OELTAXSLENGTH OF SEGMENT 
c 
c ISCOUNTER FOR DATA POINTS TO BE PLOTTED 
c 
CHHHMEHR EHH RARAHHMH AAEM REHM 
xXO2DISPLO . 
XxOO0TOsVO 
TOZxzTIMEO 
DELTe=TO 
OELTAX#OISPLO/H 
GELX=DELTAX 
120 


ThA h dads dsh stated dehed dadidsdadsdatededehedsdihadededdededehshetededehehshedadadededodcdadedshededaddadedodadedededehadeddododedaded 
c 
c THE EQUATION PARAMETERS ARE WRITTEN INTO OUTPUT FILE HSPRINGCNUM 
c 
EE Akh Bed dedehe heheh didedehehedadedstdcdedsdededidededsdedededdededdedadaddddededededededededadedededededededededededededadadadedd 
WRITE( 10,110) 
110 FORMAT(’1’, ‘PIECEWISE LINEAR PERIOD FOR THE EQUATION: ’) 
WRITE(10,120) 
1260 FORMAT(‘’O’, ‘X(OGUBLE-DOT)+C#X(DOT)+AexX+B2(Xe23) 20°) 
WRITE(10,1360) A,B,C 
130 FORMAT(’0O’, ‘'A&’,G20.10,2K,’Bt’,G20.10,2x,’C=’,G620.10) 
WRITE(10,140) DISPLO,VO 
140 FORMAT(‘O’,‘X(0)2’,G20.10,2xK, °X(DGT)(0)#’,620.10) 
WRITE(10,150) 
150 FORMAT(’-',6X, AMPLITUDE’ ,10X, ‘CUMULATIVE TIME’) 
1660 CONTINUE 
sI+1 
Eh adhd hahah dhe hehsdatedidedaddhehihededdedshsddddsdededshsdehedshadsdeddadsdaddedahididedsdadedadodededsdadadedededededakeded 


c 

c X120ISPLACEMENT AT END OF SEGMENT 

c 

¢ XPRIMEZSUBROUTINE FOR CALCULATING POINT WHERE SEGMENT CHORO LINE 
¢ CROSSES X-AXIS 

c XSTARECALCULATED VALUE 

c 

c FREO=SUBROUTINE FOR CALCULATING ANGULAR FREQUENCY 

c PSTARZCALCULATED VALUE 

c 

€ TIMESSUBROUTINE FOR CALCULATING TIME INTERWAL FOR A SEGMENT 

c DELTATS=CALCULATED VALUE 

c 

c SPEED=SUBROUTINE FOR CALCULATING SPEED AT END OF SEGMENT 

c MDOTISCALCULATED VALUE 

c 

CezNOTES®*sTHE PROGRAM STOPS IF THE DISPLACEMENT AT THE ENO OF A SEGMENT 
c IS EQUAL TO -DISPL (1. E., UNDAMPED CASE). 

c 


td A AA dd dha Added sds ddadsdehededshsdadsdedeteddedatedatsdehstsdshadetedadedadsdadadededsdatsededadededdahsdsdedededadadaded 
M1SXO-OELTAX 
CALL XPRIME(XO,X1,XSTAR) 
CALL FREQ(XO,X1,N,PSTAR) 
CALL TIME(XO,XO00TO,X1,O0ELT,XSTAR,N,PSTAR, DELTAT) 
CALL SPEED(XO,XDOTO,XSTAR,N,DOELTAT,PSTAR,XDOT!) 
De De eRe hd ehh hehe Adda dededededadhehsAahdehadhahehshahetstadsdadedehshsdsdsdadsdedshadededadededededededsdedatehahel 


c 
c STARTING AT STEP 190 AND CONTINUING AT 20600, THE PROGRAM TESTS FOR 
c ZERO VELOCITY. IF IT GCCURS AT THE END OF THE SEGMENT, THE 

c PROGRAM STOPS (SEE STEP 300). IF NOT, THE LOCATION OF THE FIRST 
c TROUGH IS SOUGHT (STEPS 250 TO 270). 

¢c 

c 


SEE AE Ae Ah hahha dstha Rad R da hathatadatsdaahatadahedatshahadhsdadadedadadiciethedatadetetedadadededsdatsdeRadededadedadstadahatateedehadal 
OELTSOELTAT 
TISTO*FDELTAT 
IF(XO.GE.0.0) GO TO 1790 
GO TO 190 
176 CONTINUE 
EE ee ee eee Added hehe Bete Medes dhahehahehaMadshahahstsdadshatshehedshshihshehsdahsdatetsdedadahsdehadeMsdeehstadedadedad 
c 


c AMPLPZARRAY FOR XO 
c TPZARRAY FOR TO 
c 


CHM MMH MWY OH HOD OH OOO AOA HEA HOI AAO tO Aa Oa a Ot 
AMPLP(I)=XO 


TP(I)=TO 
eRe ELA LAE. A dd Added aedsdadatedadsasdrtadetardeadsdsdsdedsdssdatedstedstededahsdededdstedsdedsdededadstad 
c 
c THE INTERIM VALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGCNUM. 
c 


CW WOH OO OE HOME AOA 
WRITE(10,180) XO,TO 


18O FORMAT(1X,2(G20.10,2Xx)) 
le LASS LAE DA hd heheheh sMahsdeedsRsdadssesdatedatstatadistadestatadecdadsMsdaMedalsMadedstadstatsdetetetatehehsdheted 


c 

c RESETTING THE INITIAL CONOITIONS. 

c 

CH 9AM OE AHO AEA OO OO 
xO=X1 
xO0OTO=xKOOT! 
TO=T1 


GO TO 160 
190 CONTINUE 
IF (DABS(XDOT1).LT.1.00-08) GO TO 200 
Go To 170 
200 CONTINUE 
CHMHHMHHHHAHAMHHHMHHHMUEMH MMMM HRA HMMM OO 


c 
c THE SEGMENT IN WHICH THE FIRST TROUGH OCCURS IS WRITTEN INTO 


c OUTPUT FILE HSPRINGCNUM. 


c 
CHHMHHHHHHHHMHHHHHMHHHHHMAMMMEMMHMHHM OHHH 
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221 
222 
223 
224 
225s 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
264 
245 
246 
247 
248 
2493 
250 
281 
282 
283 
254 
255 
256 
287 
258 
258 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285s 
286 
287 
288 
289 
2390 
291 
2392 
233 
294 
295 
296 
237 
298 
239 
3200 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
33 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


216 


AMPLP(I)2xoO 
TP(I)2TO 
WRITE(10,210) xXO0,TO 
210 FORMAT(1X,2(G20.10,2x)) 
DIFF=-OISPLO-xoO 
IF (DABS(DIFF).LT.1.00-08) GO TO 300 
WRITE(10,220) x1,T1 
220 FORMAT(1X,2(G20.10,2x)) 
WRITE(10,230) 
230 FORMAT(’-’,’TROUGH ITERATIONS’) 
WRITE(10, 240) 
240 FORMAT(’0’,10K,’KO’,20K,‘'X1’,14K,°X1 (CALCULATED) ‘) 
CHWMEHT HMMM E HOHE EHO REMHEMM MR HEHEEOMH OREM EHH RON EHREM OHH OR EHR 


c 
c THE FOLLOWING (ENDING AT STEP 270) IS THE CALCULATION OF THE FIRST 
c TROUGH. USING THE TIME INTERVAL REQUIRED TO REACH ZERO VELOCITY, 
c &® NEW VALUE OF Xi (XF) IS CALCULATED ANDO COMPARED TO THE PREVIOUS 
c VALUE. THIS NEW VALUE BECOMES THE NEW Xi IF THE DIFFERENCE 

c BETWEEN XF AND THE OLD X1 IS NOT WITHIN A SET TOLERANCE, ANO THE 

c PROCESS STARTS AGAIN. 

c 

c 

c 

c 


THESE ITERATIONS ARE WRITTEN INTO OUTPUT FILE HSPRINGCNUM. 


la hehtedededsduddAdehdadedetededdeddrddedsdadeddedadedddddcd ddd ddd ddd ALLL LL 
250 CONTINUE 
C1zKO-xXSTAR 
C2=(N2(XO°XSTAR)+XDOTO)/PSTAR 
PSPSTAR 
XFEXSTAR+DEXP( -N*DELTAT)#(C1*0COS(P*DELTAT)+C2*0SIN(P®OELTAT) ) 
WRITE(10,260) XO,X1,XF 
266 FGRMAT(1X,3(G20.10,2x)) 
OIPF2xKicxF 
IF(DABS(DIFF) .LT.1.00-08) GO TO 270 
XisKxe 
DIFF2XKO-xF 
IF(DABS(DIFF).LT.1.00+08) GO TO 270 
CALL XPRIME(KO,X1,XSTAR) 
CALL FREO(XO,X1,N,PSTAR) 
CALL TIME(KO,XO00TO,X1,O0ELT,XSTAR.N,PSTAR, DELTAT) 
GS TO 280 
276 CONTINUE 
thE Bk hd dahhd ded ddeded ddd ded ddsh dd Adad dad dedudedededededetededdeddedededededidedsddedudidehadedadd Add ddd AA 


c 
c THE FINAL VALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGCNUM. 
c 
EE ad halted heheh dadadedehhedadedidaddaddedteh dAdded Aduddddeddeddedudddudsdedededidedsdedadededadadededadadedadodeded 
TFsT1 
XF=Xxi 
IsI+1 
NPOINT=I 
AMPLP(1)=XF 
TPS ee 


TAUS2.0#T1 
WRITE(10,280) DELTAX, TAU 
280 FORMAT(’-’, ‘DELTAX=’,G20.10,2K,’PERIOD=’ ,G20.10) 
WRITE(10,290) XF 
290 FORMAT(’0O’,’FIRST TROUGH OCCURS AT X=’,G620.10) 
GO TO 320 
300 CONTINUE 
EE hi hed Meteh Meh datedsdshsdehadsdidaddhsdehedstsdhedshsdadedetedshetshshadaAsdadsdodaddatededatshadedahehededadadedsdadsdedadaded 


‘ 


c 

c THE FINSL VALUES ARE WRITTEN INTO OQUTPUT FILE HSPRINGCNUM (UNDAMPED 
c CASE). 

c 

EE Bh A A hdd hada heh edadeddedshshidsdahshsdadshadatetstshuhedededadehahhehededetedsdsdadehsdedededsdshetedahedsdudedehedededsdatododed 


NPOINT=I1 
TAUZ2.0*T1 
WRITE(10,310) DELTAX, TAU 
310 FORMAT(’-’, ‘DELTAX®’,G20.10,2X, ‘PERIOO®’ ,G20. 10) 
320 CONTINUE 
EE Ah dd ahah heheheh Arteta edsdihshedadshsdatadsdedshidsdadadsAshadadddatadedahstetedstadehadihedsdatsdedshetedadsdehstetsebsdedadeded 


THE FOLLOWING SECTION (ENOING AT LINE 330) IS TRE RUNGE-KUTTA 
SOLUTION OF THE SAME ORIGINAL EQUATION. 


c 
c 
c 
c 
c 
c 
c TFINAL=FINAL TIME 
c INTVL2NUMBER OF INCREMENTS 
c 
Ee A Ah hhh deed he hahha hdehedsddadsdsdadadedatedsdatidahedadadhadedsdadedededsdsdedatededsdetetedatatetehadeeteRadedadaded 
TFINAL=ET1+0.1 
INTVL=TFINAL/OTIME+1 
ee eee ak hh eh hak Aad hadehadedidahahehsdatsAshstadiadstsdahadahidatehsdedsdeatsdsdshadsdadedadsdedededidadsdstedadeetedadededaded 


c 

c THE FOLLOWING ARE PARAMETERS FOR THE NUMERICAL SUBROUTINE. 
c CONSULT THE IMSL MANUAL ON "DVERK" FOR FURTHER DETAILS 

c 


i PP EEE LLL. LAA ddd ddd ddd daddadoddadsdedehidedsdadadsdodsdedadaAedededidsdsdadedsdededededsdedatsdedaiedsdetsdededoded 
KRK=TIMEO 
Y(1)20ISPLO 
Y(2)2VvV0 
NEQN=2 
NW 2 
TOL=1.0D0-12 
INO=1 
XENO=OTIME 
PTE EE LALLA LALA LAA A AdeddedahededededadetoheRedadadedadadsmadsdedetadateiadadeMatadstadadadsdahedeedatededsdedededehaded 


c 


c ZEIT=CUMULATIVE VALUE OF TIME AT END OF EACH INCREMENT 

Cad CdEREOEAHRHUAHAHHHAVARONHTHEONUPUURGEPANEHAHANOUOHAVARDN OREN ERD OER 
CHONON CELEEMEREANADHANYHORNOHPANEAHUDHENORNUEORNEHAREAHENDENDORERENOOHES 
: AMPLRK=ARRAY FOR AMPLITUDE VALUES 

c TRK=ARRAY FOR TIME VALUES 

c 


CMTE AEA EOE HOHE AAO 
DO 330 J=1,INTVL 
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OF Re OOo Cees 649010 06006 wos yas (6000004004 


331 
332 
333 
334 
335 
336 
337 
338 
3393 
340 
341 
342 
343 
344 
345 
346 
347 
348 
348 
350 
351 
352 
383 
354 
355 
356 
387 
388 
359 
360 
3671 
382 
363 
364 
365 
366 
367 
368 
363 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 
383 
384 
3385S 
386 
387 
388 
389 
390 
331 

392 
333 
394 
395 
336 
3397 
336 
399 
400 
401 

402 
403 
404 
4os 
406 
407 
408 
409 
410 
411 

412 
413 
414 
415 
416 
417 
418 
413 
420 
421 

422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 


AMPLRK(J)2Y(1) 

TRK(J)SZEIT 

CALL DVERK(NEON,FCN,XRK,Y,XENO,TOL,INDO,CN,NW,W, IER) 
baht hed diddeded dd ddsddehedudddadededudededadedudidudededidadadiddedsddedsdedddcdcd dca 
c 


c INCREMENTING THE TIME VALUES. 

c 

EE Akad hdd dheddededed ded ddddudshad dadedudedededededededudededededadoduddoddedduddcdd ddl CL LD 
ZEITSXEND 
XENOZXENO+OTIME 


330 CONTINUE 
CHHEUHEHH HHH OMAR HOHHNRONEKMO MEN ENRON OHO 
¢€ 
c THE CALCULATED VALUES ARE WRITTEN INTO OGUTPUT FILE KSPRINGCREK. 
c 
AE dd dd dd dh dddddddddeddddadedddddded dd ddd ddd LALLA 
WRITE(11,380) 
340 FORMAT(‘1’,’RUNGE-KUTTO RESULTS FOR THE EQUATION: ‘) 
WRITE( 11,350) 
350 FORMAT(‘O’, ‘'X(DOUBLE-DOT)+C#Xx (DOT) +O2X+B2e(X283)20" ) 
WRITE(11,360) A,8,C 
360 FORMAT(‘0O’,'A=’ ,G20.10,2K, ‘Bs’ ,G20.10,2K,‘Cz*°,620.10) 
WRITE(11,370) DISPLO,VO 
370 FORMAT(’0’,‘’X(0)#’,G20.10,2K,'X(DOT)(0)2’ ,G20.10) 
WRITE( 11,380) 
380 FORMAT(’-*,9X,’TIME’, 15K, ‘AMPLITUDE’ ) 
05 46060 WNO21,INTVL 
WRITE(11,390) TRK(NO), AMPLRK(NO) 
390 FORMAT(1X,2(G20.10,2x)) 
800 CONTINUE 
EE A hdd hd Medd ddd ddd deddd ddd dd dd ddeddeddedidededddedededadidedadaded Adedd dA ted Added adda add 
¢€ 


c THE NEXT FEW LINES ARE USED IN FINALIZING ALL THE PLOT PARAMETERS 

c WRICH INCLUDES AXIS SCALING. 

c 

SEE Eh Md edd dd ddd ddd dd dddedddeddodededidedaheddededededededaddudodddeded Added dod. dd ddd Add 
M1 


IF(DISPLO.LE.1.0) GO TO 420 
410 CONTINUE 
DECD20ISPLO/(10.0s2m) 
IF(GOECO.LE.1.6) GO TO 440 
Meme) 
GO TO 410 
420 CONTINUE 
DIGD=OISPLO#(10.622m) 
IF(O1IGO.GE.1.60) GO TO 430 
MeMmei 
GO TO 420 
430 CONTINUE 
OECD=01GD/10.0 
Mz-(M-1) 
440 CONTINUE 
IF(OECD.LE.O.1) VFACT#0.1 
IF((DECD.GT.0.1).AND.(DECD.LE.0.25)) VFACT20.25 
IF((D0ECO.GT.0.2S8).AND.(DECD.LE.0.5)) VFACT#O.5 
IF((DECD.GT.0O.§).AND.(O0ECD.LE.1.0)) VFACT=1.0 
SFACT2VC/10.0 
VA=-VFACT*SFACT#10.08%=mM 
DEN2VC/(2.0=SFACT) 
VBe(VFACT/DEN)2#10.082mM 


Mei 
IF(TFINAL.LE.1.0) GO TO &60 

4S0 CONTINUE 
DECT=TFINAL/(10.02%2mM) 
IF(OECT.LE.1.9) GO TO 480 
Mame) 
GG TO 4580 

460 CONTINUE 
DIGTSTFINAL*#(10.02%mM) 
IF(DIGT.GE.1.0) GO TO &70 
Mame 
GO TO 4606 

470 CONTINUE 
OECT=OIGT/10.0 
Mz-(M-1) 

480 CONTINUE 
IF(OECT.LE.0.07) HFACT20.1 
IF((DECT.GT.0.07).AND.(DECT.LE.0.1&)) HFACT=0.2 
IF((DECT.GT.0.14).ANO. (DECT.LE.0.35)) HFACT30.5 
IF((D0ECT.GT.0.35).AND.(DECT.LE.O.7)) HFACT21.0 
IF((DECT.GT.0.7).AND.(OECT.LE.1.0)) HFACT=2.0 
HBZHFACT#190. 022 (M-1) 
LONG=HC 
MA(2)20FLOAT(LONG)*HB-0.005 

le ee Le A AAR Ahhh Ahh Bids peeidaatsdedstesdedadststeiadsdadethsdatadeteMedsMatetsdedetsdedisdsMesdehed Aaaddedadaed 


c 
c THE FOLLOWING SECTION SETS UP THE PIECEWISE LINEAR RESULTS SO THAT 
c NO MORE THAN 13 POINTS ARE PLOTTED FOR A CLEARER PRESENTATION. 
c 
c YP=ARRAY FOR PLOTTED PIECEWISE LINEAR DISPLACEMENTS 
c TPP=ARRAY FOR PLOTTED PIECEWISE LINEAR TIME VALUES 
| PON OLRHUHPEVHERUREUHHRNONOROTHENOHERDERERENERENHHONHTROREL OR NOHO BEENE 
COUNT=DFLOAT(NPOINT) 
INC=COUNT/10.0 
DELINC=COUNT/10.0-DFLOAT(INC) 
IF(DELING.GE.O.5) INC=INC+1 
NPei 
ND=1 
490 CONTINUE 
YP(NP)=AMPLP(ND) 
TPP(NP)=TP(ND) 
NP=NP+1 
ND=ND+INC 
IF(NO.GE.NPOINT) GO TO 500 
GO TO 490 
500 CONTINUE 
YP(NP)=AMPLP(NPOINT) 
TPP(NP)=TP(NPOINT) 


20K 
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441 
442 
483 
84 
44s 
446 
447 
448 
449 
850 
481 
452 
483 
454 
455 
466 
4s7 
858 
ass 
460 
461 
462 
863 
864 
865 
466 
467 
4668 
469 
470 
471 
472 
473 
478 
475 
476 
477 
478 
479 
480 
631 
482 
483 
434 
485 
486 
487 
488 
489 
430 
491 
492 
433 
494 
495 
496 
as7 
498 
439g 
500 
S01 
502 
503 
$04 
sos 
S06 
SO7 
508 
$09 
510 
511 
512 
513 
514 
sis 
516 
517 
513 
519 
520 
521 
522 
523 
524 
$25 
526 
$27 
528 
529 
530 
S3i 
532 
533 
534 
535 
$36 
§$37 
$38 
$39 
540 
$41 
$42 
543 
544 
545 
546 
547 
548 
$49 
550 


td Dd ddd dd ded ddd Ad dodud ddudededidededodadideddedodedededededededsdedadaddd dda A Add A AAA 


c 
c 
c 
c 


PLOTTING THE SOLUTIONS. CONSULT THE WRITEUP ON CGPL/CGPL2 AND 
THE MANUAL ON DIGITAL PLOTTING FOR DETAILS. 


TE Rh A hdd ddd dd ddd dddddddadidediddehodadededededsdedededsdedededsdudetdddcdddd a Adda aA 


NOSINTVEL 

NF=! 

CALL CGPL2(TRK,AMPLRK,NO,NF,S,HA,HB,HC,Va,VB,VC,ALPR) 
NO=NP 

CALL CGPL2(TPP,YP.NO,2,1,HA,HB,HC,VA,VB,VC,ALPH) 
NFse 

CALL CGPL2(KA,YA,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 
STARTX2(HC-6.3)/2.0 

STARTY=VE+O.5 

HORIZ=SHA 

VERTSVC+O0.5 

CALL PLOT(HORIZ, VERT, 3) 

HORIZSHC 

CALL PLOT(HORIZ, VERT,2) 

VERTZVERT?4.6 

CALL PLOT(HORIZ, VERT,2) 

HORIZ2EHA 

CALL PLOT(HORIZ, VERT, 2) 

VERTSVE+O.5 

CALL PLOT(HORIZ, VERT,2) 

HORIZESTARTX+O.2 

VERTSSTARTY+4.2 * 

CALL SYMBOL(HORIZ,VERT,O.2,’'A =’,0.0,3) 
HORIZ=ESTARTX+1.0 

CALL NUMBER(HORIZ, VERT.0O,2,A,0.0,4) 
HORITZSSTARTXKX*+3.0 

CALL SYMBOL (HORIZ, VERT,O.2,'B =’,90.0,3) 
HORIZESTARTX+3.8 

CALL NUMBER(HORIZ, VERT,9.2,8,0.0,4) 
HORIZ=STARTX+2.0 

VERTZSTARTY+3.8 

CALL SYMBOL(HORIZ,VERT,©.2,‘C #’,0.0,3) 
HORIZ=SSTARTX*2.8 

CALL NUMBER(HORIZ, VERT,©0.2,€,0.06,4) 
HORIZ=SSTARTX+0.2 

VERTZSTARTY+3.1 

CALL SYMBOL(HORIZ,VERT,0.2,52,0.0,-1) 
HORIZSSTARTX*O0.4 

CALL SYMBOL(HORIZ,VERT,0O.2,’°xX (PIECEWISE’ ,0O.0,11) 
HORIZ=STARTX+1.0 

VERTESTARTY*#2.8 

CALL SYMBOL (HORIZ, VERT,©O.2,’LIMEARIZATION) =’,0.0,16) 
RORIZ=SSTARTX+4 4 

CALL NUMBER(HORIZ, VERT,©O.2,DELXK,0.0,4) 
HORIZ=ESTARTX+O.2 

VERT=ESTARTY*#2.4 

CALL SYMBOL(HORIZ,VERT,0.2,52,9.0,-1) 
HORIZ=STARTX+0.4 

CALL SYMBOL (HORIZ,VERT,©0.2,‘'T (RUNGE-KUTTA) =°,0.0,17) 
HORIZ=STARTK+4.0 

CALL NUMBER(HORIZ2,VERT,9.2,O0TIME,0.0,4) 
HORIZ=STARTX+0.2 

VERTSSTARTY+i1.5 

CALL SYMBOL (HORIZ,VERT,O.2,’K(0) =’,0.0,6) 
HORIZSSTARTX+1.6 

CALL NUMBER(HORIZ,VERT,O.2,DISPLO,0.0,4) 
HORIZ=STARTX+3.5 

CALL SYMBOL (HORIZ,VERT,©O.2,°X(0) 2=°,9.0,8) 
HORIZ=STARTX+3.525 

VERT=STARTY+1.9 

CALL SYMBOL (HORIZ,VERT,©O.2,75,0.90,-1) 
HORIZ=STARTX+4.9 

VERTZSTARTY+1.6 

CALL NUMBER(HORIZ,VERT,9O.2,V0,0.0,4) 
HORIZSSTARTK*+O0.3 

VERT=STARTY+0.7 

GALL PLOT CHOR 12 VERT, 3) 

HORIZ=STARTX+O0.8 

CALL PLOT(HORIZ, VERT,2) 

HORIZSSTARTXKX+1.9 

VERTSSTARTY*O.6 

CALL SYMBOL (HORIZ,VERT,O.2, ‘RUNGE-KUTTA’ ,9.0,11) 
HORIZ=STARTX+0.6 

VERT=STARTY+0.3 

CALLE SYMBOL (HORIZ, VERT, Oo. 2,1,0.0 -'1) 
HORIZ2STARTX+1.0 

VERT=STARTY+0.2 

CALL SYMBOL (HORIZ,VERT,O.2, 'PIECEWISE LINEARIZATION’ ,0O.0,23) 
NF=ZO 

CALL CGPL2(XA,YH,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 
STOP 

END 


AHEAD AE EWE EAE AOE EEA EHH 


THE FOLLOWING SUBROUTINE CALCULATES THE POINT WHERE THE INTERVAL 
CHORD LINE WOULD CROSS THE X-AXIS. 


HIE HEHE IE HEHE HEHEHE ADIOS EEA 


SUBROUTINE XPRIME(XO,X1,XSTAR) 
IMPLICIT REAL#8 (A-H,0-2) 
COMMON/COEFF/4A,B 

IF (DABS(XO).LT.1.00-08) GO TO 6900 
FO=A*KO+B* (XO*®*3) 

F1=A*X1+B* (X1*23) 
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KSTARE(K1-(F1/FO)#KO)/(1-(F1/FO) ) 
GO TO 610 
600 CONTINUE 
XSTAR®O.DO 
610 CONTINUE 
RETURN 
ENO 


Eh Ah dd ddd dahddsdshatsdedadotededidedahadedstahedsdadadetahsdebehihededatadatadited 


(Sj 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE ANGULAR FREQUENCY FOR 
c AN INTERVAL. 
c 
CHHHHREE RMR HHRMA M EAHA EMHAA MAEMO MENA HM 

SUBRGUTINE FREQ(XO,xX1,N,PSTAR) 

IMPLICIT REAL®8& (A-H,0-2Z) 

REAL*& WN 

COMMON/COEPF/A,8 

FOSA=KO+Bs (XO223) 

F1IshO2Xi+8e(X1#23) 

SLOPES (FO?2F1)/(KO-XK1) 

PSTARZOSORT(SLOPE-Nt2#2) 


RETURN 
END 
c 
c 
c 
OE aN hha heat Raksha hated hahahahahahaha hahahah shahshetahehahedatahsthedathedstedsdhettatstesdathsiadadstehatesdesthststatetetahelel 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE TIME INTERVAL FOR & 
c PARTICULAR SEGMENT BY USING A NEWTON-RAPHSON METHOD IT ALSO HAS 
c A PROVISION FOR FINDING THE LAST TIME INTERVAL PRIOR TO THE FIRST 
c TROUGH ON THE DISPLACEMENT-TIME CURVE. 
c 
EE at Matha hata hed atstahithahadehshaatateatsdededaheRedahstahashatahetadatetetatdedehatsdethadadahetidehehahatstshsdaAedsaadetehadetetehed 


SUBROUTINE TIME(XO,XO00TO,X1,D0ELT,XSTAR,N,P,DOELTAT) 
IMPLICIT REAL®& (A-H,O0-2) 
REAL*3&3 N 
DELTA=OELT+O.05 
C1=xXO-XSTAR 
C2=(N*(XO-xXSTAR)*KXDOTO) /P 
C3=-N*C1+P2C2 
C4s-PsC1-N2C2 
CS=-(P222-N*®4*2)2C1-2.02PSNEC2 
C622. 08P2N#C1-(P222-N22)2C2 
te ee ee ee ee ee ee ee ee ee ee ed ehh hie hed d ate dadedaedadad 


c 

c FeMAIN FUNCTION (OISPLACEMENT ) 
c FPSF-PRIME (VELOCITY) 

c 


Oe EE Baked Rak hehehehe heted shaded shade Asha setae Rehedadsdsdedatadstasdathetuhstatatatststadetedetshshetsdatetstedshetetetstdetedad 
700 CONTINUE 
FEHX1-XSTAR-DEXP(-N¥OELTA)2=(C120COS(P®O0ELTA)+C2*OSIN(PSOELTA)) 
FP=-DEXP(-NFOELTA)#(C3®OCOS(PFDELTA) +C4*O0SIN(P*OELTA) ) 
WAN shoe Si SOE tote! arle) 2a) 
DELTAI=DELTA-F/FP 
DIFF=OELTAI-DELTA 
IF (DABS(DIFF).LT.1.00-08) GO TO 730 
OELTAZODELTAI 
GO TO 700 
eee ee Le Le a A ddd dedadeddedidid dcdetadiddadedsdadsdadodedodadedadodedodududedadadeded 


AS THE DISPLACEMENT APPROACHES A PEAK OR TROUGH, THE VELOCITY 
APPROACHES ZERO. THE RESULT IS THAT INSTEAD OF F AND FP, THE 
FOLLOWING ARE USED IN THE RESPECTIVE POSITIONS: 


FPP=FP-PRIME (ACCELERATION) 


c 
c 
c 
c 
c 
c FP=MOBIN FUNCTION (VELOCITY) 
c 
c 
c ANO THE CALCULATION CONTINUES. 
c 
ee ee EEE ELE LAE LALA Ad A RehedhhadsheAahstsAatahedsetedstststatadaMatshahahatstahaheRatetedshatahehatatsestetsdetetel 
710 CONTINUE 
DELTAZDELT+0.05 
720 CONTINUE 
FP=-DEXP(-N*OELTA)*#(C3*O0COS(P*0ELTA) +C4*0SIN(P*OELTA) ) 
FPP=-DEXP(-N®DELTA)*(CS*O0COS(P*DELTA)+CE*OSIN(P*DELTA) ) 
DELTAI=DELTA-FP/FPP 
OIFFSOELTAI-DELTA 
IF(DABS(DIFF).LT.1.00-08) GO TO 730 
DELTA=DELTAI 
Go TO 720 
730 CONTINUE 
DELTAT=OELTA 
RETURN 
END 


$¢-HOMIE9E IE HEHEHE IE IEE OME EME HAHA IE EAE AED AEA 


c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE VELOCITY AT THE ENO OF THE 
c SEGMENT BEING EXAMINED. 
c 
CHHVHHHNHHHHHHHHEHMHHMHAHHOM MMMM MAMMA 

SUBROUTINE SPEED(X0,XD0TO,XSTAR,N,DELTAT,P,XDOT!) 

IMPLICIT REAL*8 (A-H,0-72) 

REAL®8 N 

c1=xDOTO 

C2=-N#(N*¥(XO-XSTAR)+XDOTO)/P-P#(XO-XSTAR) 

XDOT1=O0EXP(-NX¥DELTAT)*®(C1*0COS(P*DELTAT)+C2*OSIN(P*ODELTAT) ) 

RETURN 

END 


HHHHEHHMHHHHHAOMAHHM OMAHA 
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661 c THE FOLLOWING SUBROUTINE CONTAINS THE OIFFERENTIAL EQUATIONS TO BE 
662 Cc SOLVED BY DVERK: THE INSTANTANEOUS VELOCITY AND THE ORIGINAL 

663 c EQUATION. "DFORCE" IS THE OAMPING FORCE. 

664 c 

665 CHEPMBRAON DEHN HAAHHMRRMRARERARH OHHH HHRMA OMH ETH 
666 SUBROUTINE FCN(NEON,X,Y,YPRIME) 

667 IMPLICIT REAL*8 (A-H,0-2Z) 

668 REAL*8& Y( NEON), YPRIME( NEON) , X 

669 COMMON/COEFF/A,8 

670 COMMON /DAMP/C 

671 YPRIME(1)2Y¥(2) 

672 OFORCESCxy(2) 

673 YPRIME(2)2-(DFORCE+A#Y(1)+B2(¥(1)223)) 

874 RETURN 

678 END 


END OF FILE 
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AnnannnnaAnn 


PROGRAM HSPRINGO 


THE FOLLOWING PROGRAM CALCULATES THE SOLUTION FOR THE 
EQUATION: 


X(DOUBLE-DOT)+O*(ABS(X( DOT) ) #22) 2SGN(X( DOT) )+AtX+Be(Xee3)20 
GBYTAINED BY PIECEWISE LINEARIZATION USING CHOROS, AS WELL AS 
FINOING THE FIRST TROUGH ON THE DISPLACEMENT-TIME CURVE. 

THE RESULTS ARE FOUND FROM THE FOLLOWING: 


MEKSTARSEMP(-NE(TSTO))#(C1*COS(PSTARZ(T-TO) ) 
+C2Z2"SIN(PSTAR#(T-TO))) 


X(DOT) SEXP ( -N¥(T-TO))*(C3SCOS (PSTAR=(T<TO) 
+CA4sSINIPSTAR2(T-TO))) 


CiexXO°xXSTAR 
C2=(NB(KXO-XSTAR)+*XDOTO)/P 
C3e-N2eC1+P2C2 
C&é=-PeCi-NsC2 


THE VARIOUS PARAMETERS ARE EXPLAINED AND CALCULATED IN THE 
PROGRAM. 


THE PROGRAM ALSO SOLVES THE EQUATION USING FIFTH- AND SIXTH- 
ORDER RUNGE-KUTTA METHODS. BOTH SOLUTIONS ARE PLOTTED. 


RSSSKARRSSETESTRERSSTTEKERRRELTES REL ERE TEL EEERT THERE KREES ETE KRAEE 


IMPLICIT REAL®8&8 (A°H,0-2Z) 
EXTERNAL FCN 

REAL*8 Y(2),CN(24),W(2,20) 
REAL®8& N 

REAL*4 AMPLP (200) , AMPLRK( 200) ,TP(200) , TRK(200) 
REAL#4 YP( 2000), TPP(200) 
REAL®4 XA(2),YA(2) 

REAL*4 HA,HB,HC,VA,VB,VC 
INTEGER#4 ALPNH(20) 
COMMON/COEFF/A,8 
COMMON/DAMP/Q 
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c 
c 
c 
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20 


30 


40 
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80 


90 


THE FOLLOWING VALUES ARE READ FROM DATA FILE PFITQDATA: 


A,B,Q24S IN THE EQUATION 


DISPLOSINITIAL AMPLITUDE 
VOZINITIAL VELOCITY 
TIMEOSINITIAL TIME 


HeNUMBER OF DIVISIONS OF INITIAL DISPLACEMENT 
OTIME=TIME INCREMENT (RUNGE-KUTTA SOLUTION) 


HA,HC=PLOT PARAMETERS FOR HORIZONTAL AXIS (HC AN INTEGRAL MULTIPLE 


OF 7.0) 


VC=PLOT PARAMETER FOR VERTICAL AXIS (AN INTEGRAL MULTIPLE OF 
12.0 GIVING BEST RESULTS) 


MA, YAZPARAMETERS FOR PLOTTING ZERO LINE 


ALPHBARRAY FOR PLOT AXIS LABELS 


READ(S5,190) 4,8,9 
FORMAT(3010.6) 

READ(S,20) DISPLO,VO, TIMEO 
FORMAT (3010.6) 

READ(S,30) H,OTIME 
FORMAT(2010.6) 

READ(S,40) HA,HC 
FORMAT(2F10.4) 

READ(S,50) vC 

FORMAT(F10.4) 

READ(S,60) XA(1) 

FORMAT(F10. 34) 

READ(S,70) YA(1),YA(2) 
FORMAT(2F10.4) 

READ(5,80) (ALPH(I),1I=1,12) 
FORMAT(12A4) 

READ(S,90) (ALPH(I1),1213,16) 
FORMAT (4A4) 

READ(S,100) (ALPH(I),1=17,20) 


100 FORMAT (4A4) 
Co 4 HOHE HAE HOE DHE OO OP 


C=DAMPING COEFFICIENT (INITIALLY SET AT ZERO) 
NSOAMPING FACTOR 


c=0.0 
N=C/2.0 
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Eh Adhd dd dd ddeheddedded ddd ddd dddeddedidedadeddcdededededahedsdedddddedd sda dA dd AA 
SETTING THE INITIAL CONDITIONS. 


c 
c 
c 
c KOSINITIAL DISPLACEMENT FOR EACH SUCCESSIVE SEGMENT 

c XDOTOZINITIAL VELOCITY FOR EACH SEGMENT 

c XDOTPSPREVIOUS FINAL SEGMENT VELOCITY 

i TOSCUMULATIVE TIME TAKEN TO REACH BEGINNING OF SEGMENT 

c OELTSINITIAL GUESS AT TIME INTERVAL FOR THE SEGMENT BEING EXAMINED 
c (SEE SUBROUTINE TIME BELOW) 

c 

c 

c 

c 

c 

c 


OELTAX® LENGTH OF SEGMENT 
IT2sCOUNTER FOR DATA POINTS TO BE PLOTTED 


Aide hehhideded Added dd deddeh Adddedhd Adah ddadedidededsdedededshideddedededatededsdadehadsdedidededadeddeddcddeddadded 
XOsDISPLO 
xXDOTOSVO 
XDOTPeVO 
ToseTIMEO 
DELT=TIMEO 
DELTAXZ0ISPLO/H 
OELX=OELTAX 
120 
A A eed hd dd add do ddded ddd ddd Addddadddded td ddddddededadudededuddeddedededed dd 
is 
c THE EQUATION PARAMETERS ARE WRITTEN INTO OUTPUT FILE PFITONUM. 
c 
SA Ah Ld Ade ted deh A ddd Added dd dededdhedadedadededodedehehededadehdadededoddedshshsAedudedehededededededadededededaded 
WRITE(10,110) 
110 FORMAT(’1’, ‘PIECEWISE LINEAR PERIOD FOR THE EQUATION: ’) 
WRITE(10,120) 
120 FORMAT(°O’ ,’X(DOUBLE-00T) +02 (ABS (X(DOT))**#2)*SGN(X( DOT) )+AtX+B(XEe 
13)20°) 
WRITE(10,130) A,B,90 
130 FORMAT(‘O’ ,’42',G20.10,2K,’B2’,G20.10,2xX,’O2#',G620.10) 
WRITE(10,140) DISPLO,VO 
140 FORMAT(‘O’ ,’X(0)2' ,G20.10,2K,’xX(00T)(0)#’ ,G26.10) 
WRITE(10,150) 
1S$0 FORMAT(’-’,6X, AMPLITUDE’, 10X, “CUMULATIVE TIME’) 
Te Ae DE Ahh ddd ddd d ddd Add Add Adhd A ddsdededadshedadedsdeded dededadudadrdedadaiedehehedstudadededod 
¢ 
c XISOISPLACEMENT AT END OF SEGMENT 
c 
SE Ahhh Me dadi dade ddededh ddd dd hedadhddihihsdedadahed deh shehehsdadatadadedsdadsdahetedestsdsdedadsdesdatededatetedededsdededadid 
K1=xXO-OELTAXK 
160 CONTINUE 
lee 
170 CONTINUE 
CHHHHHEHMHHRHHEHAHHREAHHRHEN HERRERO OHHH 


XPRIMBSSUBROUTINE FOR CALCULATING POINT WHERE SEGMENT CHORD LINE 
CROSSES X-AXIS 
XSTARECALCULATED VALUE 


FREQ=SUBROUTINE FOR CALCULATING ANGULAR FREQUENCY 
PSTAR=CALCULATED VALUE 


TIMESSUBROUTINE FOR CALCULATING TIME INTERVAL FOR A SEGMENT 
DELTATSCALCULATED VALUE 


SPEED=SUBROUTINE FOR CALCULATING SPEED AT ENO OF SEGMENT 
XDOTISCALCULATED VALUE 


ZSNOTE®* THE PROGRAM STOPS IF THE DISPLACEMENT AT THE ENO OF A SEGMENT 
IS EQUAL TO -OISPLO (1. E., UNDAMPED CASE). 


annanannanannnnaannna 


oe EA A Meda h steed seadehedehahsAadatedshaahedaheMatetahatatstsdetadehsRedadedsdskaAsdahedadehedsadadadadetaiadatathahetedatededaedadedal 
CALL XPRIME(XO,X1,XSTAR) 
CALL FREOQ(XO,X1,N,PSTAR) 
CALL TIME(XO,XDOTO,X1,O0ELT,XSTAR,N,PSTAR, DELTAT) 
CALL SPEED(KXO,XDOTO,XSTAR,N,DELTAT,PSTAR, XDOT1) 
EME hada hahaehadhe he AahadedahadshadahadidadsdshsAehshahsheatshatedadaddadadadahstadededadadadstetatatedeheheteddedeRadeddedadedahadad 


THE FOLLOWING IS THE ITERATION TO FINO THE ENO VELOCITY FOR THE 
PRESENT SEGMENT. 


is 
c 
c 
c 
c DELTAV=OIFFERENCE BETWEEN XDOTi AND XDOTP 
c XDOTAV=AVERAGE VELOCITY FOR SEGMENT 

c SGNVAV=SGN(XODOTAY) 

c 

c 

c 

c 


C=NEW DAMPING COEFFICIENT FOR NEXT ITERATION 


RHHMHAHRHRHRARRHAHHRHAHHRHRAHARA HHA AHH AHHH AHA RHR 
DELTAV=XDOT1-XDOTP 
IF (DABS(DELTAV).LT.1.00-05) GO TO 180 
XDOTP=xXDOT! 
XDOTAV=(XDOT1+XDOTO)/2.0 
SGNVAV=XDOTAV/DABS(XDOTAYV) 
C=0*( (DABS (XDOTAV) )#*#2)*SGNVAV/XDOTAYV 
N=C/2.0 
GO TO 170 


180 CONTINUE 
eR AE LA EE LAA dd A AA Ad hide shsadsdisdsdstadstedatetsdedadstadeshedsdetedsdstetsdadetedsedeiedssdedadideiedededdadad 


c 

c STARTING AT STEP 210 AND CONTINUING AT 220, THE PROGRAM TESTS FOR 
c ZERO VELOCITY. IF IT OQCCURS AT THE END OF THE SEGMENT, THE 

c PROGRAM STOPS (SEE STEP 320) IF NOT, THE LOCATION OF THE FIRST 

c TROUGH IS SOUGHT (STEPS 270 TO 290). 

c 

CHHEHAHHHHHHHHHHHHHMMHHHEMMHHH OHARA 


DELT=OELTAT 
TISTO+OELTAT 
1F(xXxO.GE.0.0) GO TO 13930 
GO TO 210 


190 CONTINUE 
ee ee LE AE A A aA ddd adh tedhthsdsds Matas deatadsadhaRédhathsMadedsMatatsdsMatsMe Me Medst ats hada Rides Matteds died hdadiaded 


c 
c AMPLP=ARRAY FOR XO 
c TP=ARRAY FOR TO 
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221 
222 
223 
224 
225 
226 
227 
228 
2293 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
280 
241 
242 
243 
244 
245 
246 
287 
248 
249 
280 
281 
252 
283 
254 
255 
286 
287 
258 
253 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
mA 
272 
273 
274 
275 
276 
277 
278 
279 
2890 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
231 
232 
233 
2394 
2395 
296 
237 
298 
299 
300 
301 
3602 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
3138 
319 
320 
321 
322 
323 
324 
325 
326 
aan 
328 
329 
330 


c 

TE Eh ht ddd Add ddded ddd dddddd ddd ddA ddd ddd LULL LD 
AMPLP(1I)=xoO 
TP(1)=eTO 

EE Edad dda dedededaddadidedsteddededdeddodidududidededededadededudadidaddedadudsddd LULL LL 

c 

c THE INTERIM VALUES ARE WRITTEN INTO GUTPUT FILE PFITONUM. 

c 

TA h hdd heheheh dddddddddidedededududddedid dd ddd dddadddeddcdd at LL 
WRITE(10,200) xX0,TO 

200 FORMAT(1X,2(G20.10)) 
Eth ddd ddd da dedah ddudhedddeheddededadidudsdudoddudidduddodudduddededodcisiod A Add dao LA 
c 


€ RESETTING TRE INITIAL CONDITIONS. 

c 

TE Ed dd ddd dh dd ddd ded ddd ded dd ddd dddaddaddededudddeddcdi ddd dd oo dA AL Le A 
MOSX1 


X1SKXO°DELTAX 
xDOTOSXDOT1 
TO#TI 
GO TO 160 
210 CONTINUE 
IF (OABS(XOCT1).LT.1.00-08) GO TO 220 
Go TO 190 
220 CONTINUE 
Aaah sah hahatededadddededheddededededihededehohsdedediddeduddedsdeddededudedadidodehidededdededededadedcdedededededadedoduded 
c ‘ 


c THE SEGMENT IN WHICH THE FIRST TROUGH OCCURS IS WRITTEN INTO 
c OUTPUT FILE PFITONUM. 
c 


TEE ha dadhedahehehstehehadsdeh dahsddedededdedededededadddudsdededaddededsdedededidedededoddedadedededdededdedededadededaddadedked 

AMPLP(I)=2xXO 
TP(I)2TO 
WRITE(10,230) x0,TO 

230 FORMAT(1X,2(620.10)) 
OIFFe-DISPLO-XO6 
IF(DABS(DIFF) .LT.1.00-08) GO TO 320 
WRITE(10,2860) X1,T! 

240 FORMAT(1X,2(620.10)) 
WRITE(10,250) 


250 FORMAT(’-’,’TROUGK ITERATIONS’) 
WRITE(10,260) 

260 FORMAT(‘O’,10X,‘KO’,20X,°X1’, 14K, ’X1 (CALCULATED) ’) 
EE Ed hd ed desde heheh ddd dd Ad ddd ddd LA dddedehedddediddudodddedsdded Ad ddd ddd ddd dada 
c 
c THE FOLLOWING (ENDING AT STEP 290) IS THE CALCULATION OF THE FIRST 
c TROUGH. USING THE TIME INTERVAL REQUIRED TO REACH ZERO VELOCITY, 
c A NEW VALUE OF Xi (XF) IS CALCULATED AND COMPORED TO THE PREVIOUS 
c VALUE. THIS NEW VALUE BECOMES THE NEW Xi IF THE DIFFERENCE 
c BETWEEN XF AND THE OLD X1 IS NOT WITHIN A SET TOLERANCE, AND THE 
c PROCESS STARTS AGAIN. 
c 
c THESE ITERATIONS ARE WRITTEN INTO OUTPUT FILE PFITONUM. 
c 
ok hdd dd ded dad ded dedehed Adhd ddd Add dddd dad dedadiddedidededd Ade dsddAcddeddeddd dk ddddak Added 


270 CONTINUE 
C12XO-XSTAR 
C2=(N#(XO-XSTAR)+KDGTO)/PSTAR 
P=PSTAR 
XFSKSTAR+OEXP(-NFOELTAT)*(C1#0COS(P*OELTAT)+C2®0SIN(PEOELTAT) ) 
WRITE(10,280) XO,X1,XF 

260 FORMAT(2(F12.8,2K),2K,F12.8) 
OIFF2X1-XxXF 
-IF(OABS(DIFF).LT.1.00-08) GO TO 290 
M1SKe 
DIFF=ZXO-xXF 
IF (OABS(DIFF).LT.1.00-08) GO TO 290 
CALL XPRIME(XO,X1,XSTAR) 
CALL FREO(XKO,X1,N,PSTAR) 
CALL TIME(KO,XDOTO,X1,O0ELT,XSTAR,N,PSTAR,DOELTAT) 
GO TO 270 

290 CONTINUE 

CM MH OA OH tO AAO OOOO OOO Oa Oa ot 


¢c 
is THE FINAL WALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGOQNUM. 
c 
ee LEELA. dL ed dd dd ddd dd ddd Added A dddededd ddd a Adaed 
TFE2T1 
MP2X1 
IsI¢1 
NPOINT=I 
AMPLP (1) 2xF 
TP(I)=TF 


TAUZ2.0#T) 
WRITE(10,300) DELTAX, TAU 
300 FORMAT(’-’, ‘DELTAX=’,G20.10,2X, *PERIOD=’ ,G20.10) 
WRITE(10,310) XF 
310 FORMAT(’O’,’FIRST TROUGH OCCURS AT X=’ ,G620.10) 
GO TG 340 
320 CONTINUE 
CWA HAE AEE HEA Ya ato 
c 


c THE FINAL VALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGQNUM (UNOAMPED 

¢ CASE). 

c 

CHM MH MMH HOM MO YO HO AO AOA HOO 
NPOINT=I 


TAU=2.0*T1 
WRITE(10,330) DELTAX, TAU 
330 FORMAT (%="; “DELTAXs” G20°10, 2X, “PERTOD2#” , G20. 10) 


340 CONTINUE 
CHHAHHHHHHHAMHEHMAHHHMHRHMHOMHMHM EMH 


THE FOLLOWING SECTION (ENOING AT LINE 350) IS THE RUNGE-KUTTA 
SOLUTION OF THE SAME ORIGINAL EQUATION. 


TFINALZFINAL TIME 
INTVL=NUMBER OF INCREMENTS 
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331 
332 
333 
334 
335 
336 
237 
338 
338 
340 
34i 
342 
343 
344 
345 
346 
347 
348 
349 
350 
381 
352 
353 
384 
355 
356 
387 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
3764 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
3893 
390 
391 
392 
333 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
41s 
416 
417 
4138 
418 
420 
421 
422 
423 
424 
425s 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 


c 

Fh Adhd edddeddededehddeded ddd Added dddudduddadeddaddeduddddd dd 
TFINAL#T140.1 
INTVLSTFINAL/OTIME1 


SA ddd ddd ddd ddd Lhd dd ddd ddddudideded Adda CLL LLL 
c 


c THE FOLLOWING ARE PARAMETERS FOR THE NUMERICAL SUBROUTINE. 
c CONSULT THE IMSL MANUAL ON “DVERK" FOR FURTHER DETAILS. 
c 


COMMER RHONA MEENA UHHH EHRMANN AROMA MEHHHOHH HOH 
XRKSTIMEO 
Y(1)S0I1SPLO 
Y(2)2Vv0 
NEQNS2 
NWe2 
TOL=1.00-°12 
INO21i 
XENOZSOTIME 
CHERHAEEARELER AMHR OMOHRERHEHHR EMMA AMHHMMEERARERHE UMMM RHEE HN 
c 


c ZEITSCUMULATIVE VALUE OF TIME AT END OF EACH INCREMENT 

c 

a hla datetd Madde di ddd ld ddeddeded dededded Adddededddodadddeddududdddedid ddeddodcdddededddaddddeadad 
ZEITZ0.0 


St A Add dd dd AA dd ddd dd ddd dodedadded dd dda kd ULL LE LL 
c 


i AMPLRKSARRAY FOR AMPLITUDE VALUES 
c TRKZARRAY FOR TIME VALUES 
c 


Tal dd heheh dda d dah ddddedddededed Added Adehdedudeddededdaduddedudadedidededsddededadededededcdedadedadadoddeded 
00 380 Je1,INTVL 
AMPLRK(J)#Y(1) 
TRK(J)2ZEIT 
CALL OVERK (NEON, FCN,XRK,Y,XEND, TOL, IND,CN,NW,W,IER) 
ahaha dda tetehahshadshehehetehsdehsdehhehed dedadedatsdadededehedsdedsdedededadidsdedsdsdadedehededededededadededadudededatededadeded 
c 


c INCREMENTING THE TIME VALUES. 

c 

EM Reha dedadhehehedehsdedshahedededhidsdididdeddddeddddededdddededebadedadadudsdeddadedddededdededodaddedadedodedededadeded 
ZEIT=XEND 


XENDSXENO+OTIME 
350 CONTINUE 

LT Mahe taehetatehad shaded dadshedshedatedshehededehahsdsdahedededadededtedatshsdedatededsdadadededdatededsddededitedidedidadadadededed 

c 

c THE CALCULATED VALUES ARE WRITTEN INTO OUTPUT FILE HSPRINGORK 

c 

ida h Medaka hatehsdedstehedehedadahehedshsded dtrdetedadetshshsddedetudedadedsddeddatsdedahedadedahedadedadedededadahed 
WRITE(11,360) 


360 FORMAT(’1’,’RUNGE-KUTTA RESULTS FOR THE EQUATION: ’) 
WRITE(11,370) 

370 FORMAT(’O’ , ’X(DOUBLE-DOT)+C#X (DOT) +A2X+B8x(X2*32)50° ) 
WRITE(11,380) A,B,C 

380 FORMAT (‘0’ , ’Az’,G20.10,2X, ’Be’ ,G20.10,2x, ‘Cx’ ,G20.10) 
WRITE(11,390) DISPLO,VO 

390 FGORMAT(‘O’ ,’X(O)=’,G20.10,2xK,’xK(D00T)(0)#’ ,G20.10) 
WRITE( 11,400) 

400 FORMAT(‘’-’,3xX,’TIME’,15X, ‘AMPLITUDE’ ) 


00 420 NOZ1,INTYL 
WRITE(71,410) TRK(NO) ,AMPLRK(NO) 
4190 FORMAT(1X,2(G20.10,2Xx)) 
420 CONTINUE 
CHEMHHEEHEHHAHHHMMAHEH HHH HEHEHE HHH 


S 
c THE NEXT FEW LINES ARE USED IN FINALIZING ALL THE PLOT PARAMETERS 
c WHICH INCLUDES AXIS SCALING. 
c 
CHHHHHHHHHARHHAHHHAHHAHHHREN HARRAH HARRAH EAR RR 
Me} 
IF(OISPLO.LE,.1.0) GO TO 4406 
430 CONTINUE 
DECO=DISPLO/(10.08=mM) 
IF(OECD.LE.1.0) GO TO 460 
M=M+1 
GO TO 430 
440 CONTINUE 
OIGDEDISPLO#(10.02%M) 
IF(DIGO.GE.1.0) GO TO 456 
MeM+) 
GO TO 440 
450 CONTINUE 
DECD20IGD/10.0 
M=-(M-1) 
460 CONTINUE 
IF(DECD.LE.0.1) VFACT20O.1 
IF ((O0ECD.GT.0.1).ANO.(DECD.LE.0.25)) VFACT=0.25 
1F((OECD.GT.0.25).ANO.(DECD.LE.0.S)) VFACT=0.5 
IF ((DECO.GT.0.S).AND.(DECO.LE.1.0)) VFACTS1.0 
SFACT=VC/10.0 
VA=-VFACT*SFACT#10.02=M 
DEN=VC/(2.908SFACT) 
VB=(VFACT/DEN)*10.0%4M 
c 


M=1 
IF(TFINAL.LE.1.0) GO TO 480 
470 CONTINUE 
DECT=TFINAL/(10.02#M) 
IF(DECT.LE.1.0) GO TO $900 
M=M+1 
GO TO 470 
480 CONTINUE 
DIGT=TFINAL#(10,.022M) 
IF(DIGT.GE.1.0) GO TO 490 
M=M+1 
GO TO 480 
490 CONTINUE 
DECT=DIGT/10.0 
=-(M-1) 
500 CONTINUE 
IF (DECT.LE.O.07) HFACT#=O.1 
IF ((DECT.GT.0.07).ANDO.(DECT.LE.0.14)) HFACT=O0,2 


224 
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44) 

482 
443 
444 
44S 
446 
247 
448 
449 
450 
451 

452 
asz 
4s4 
455 
4S6 
457 
458 
459 
860 
461 

462 
863 
464 
465 
466 
467 
468 
469 
470 
471 

872 
873 
474 
475 
476 
477 
478 
479 
480 
881 

8a2 
482 
28a 
48s 
486 
487 
488 
4a9 
aso 
491 

492 
493 
494 
495 
496 
497 
age 
agg 
500 
501 

502 
503 
504 
505 
506 
S07 
508 
509 
510 
$11 

512 
513 
514 
515 
516 
$17 
518 
519 
520 
521 

522 
523 
$24 
525 
526 
$27 
528 
529 
530 
531 

532 
$33 
534 
535 
536 
537 
538 
$39 
540 
541 

542 
$43 
544 
545 
546 
547 
548 
549 
550 
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IF ((DECT.GT.0.14).AND.(OECT.LE.0.35)) HFACT=O0.5 
IF((DECT.GT.0.35).AND.(DECT.LE.O.7)) HFACTS1.0 
1f((DECT.GT.0.7).AND. (OECT.LE.1.0)) HFACT#2.0 
HB2HFACT#10.082(M-1) 
LONG2HC 
KA(2)20FLOAT(LONG)*HB-0.005 

Sd Added ddd deddded ddd dd dedddeded dedaddededsdededededsteddedidededdedsdedededed ddd ddd ddedided dododdddddod 


c ' 
c THE FOLLOWING SECTION SETS UP THE PIECEWISE LINEAR RESULTS SG YHAT 
: NO MORE THAN 13 POINTS ARE PLOTTED FOR A CLESRER PRESENTATION. 
c YP@ARRAY FOR PLOTTED PIECEWISE LINEAR DISPLACEMENTS 
c TPPZARRAY FOR PLOTTED PIECEWISE LINEAR TIME VALUES 
c 
th Ad Ad dd ddd ddd dad Add ddedduddededededdedadedehdeheddudededdedddedidodedddeddd dd ddeddeddddd Aodadededaded 
COUNTSOFLOAT(NPOINT) 
INC=COUNT/10.0 
DELINC=COUNT/10.0-DFLOAT( INC) 
IF(OELIWC.GE.90.5) INCSINC+1 
NPs 
ND21 
S16 CONTINUE 
YP (NP) SOMPLP(ND) 
TPP(NP)Z=TP(ND) 
NP=NP+1 
NOSNDO+INC 
IF(NO.GE.NPOINT) GO TO 520 
Go TO §10- 
$20 CONTINUE 
YP (NP) SQMPLP(NPOINT) 
TPP (NP )=TP(NPOINT) 
td Ad Added dd dd dddd dad deded dshidededodedsdedudededehedededededehedededededededdadedededededoddedadededehedadededededodehed 


c 
c PLOTTING THE SOLUTIONS. CONSULT THE WRITEUP ON CGPL/CGPL2 AND 
c THE MANUAL ON OIGITAL PLOTTING FOR DETAILS. 
c 
tA hhh hhh dh hdd ddd da dded daddddsdedsdahetohatetedshabedehadahehehadedsddedestededadedsdedahskahededel 
NOSINTVL 
NF=1 
CALL CGPL2(TRK,AMPLRK,NO,.NF,5,HA,HB,HC,VA,VB,YC,ALPH) 
ND=NP 
CALL CGPL2(TPP,YP,ND.2,1,HA,HB,HC,VA, VB, VEO,ALPH) 
NFae 


CALL CGPL2(xX4,YA,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 
STARTX=(HC-6.3)/2.0 

STARTY=VC+0.5 

HORIZ=HA 

VERT=VC+0.5 

CALL PLOT(HORIZ,VERT,3) 

HORIZ2HC 

CALL PLOT(MORIZ,VERT,2) 

VERTSVERT+4.6 P 
CALL PLOT(HORIZ,VERT,2) 

HORIZ=HA 

CALL PLOY(HORIZ, VERT, 2) 

VERT=VC+0.5 

CALL PLOT(HORIZ,VERT,2) 

HORIZ=STARTX+O0.2 

YERT2STARTY+4.2 

CALL SYMBOL(HORIZ,VERT,©0.2,’4 =’,0.0,3) 
HORIZ=STARTX+1.0 

CALL NUMBER(HORIZ,VERT,0.2,4,0.0,4) 
HORIZ=STALRTX+3.0 

CALL SYMBOL(HORIZ,VERT,O.2,‘B =’,0.0,3) 
HORIZESTARTX+3.8 

CALL NUMBER(HORIZ,VERT,0.2,B,0.0,4) 
HORIZ=STARTX+2.0 

VERTSSTARTY+3.8 

CALL SYMBOL(HORIZ,VERT,0.2,'9 =’,0.0,3) 
HORIZESTARTX+2. 8 

CALL NUMBER(HORIZ,YERT,0.2,0,0.0,4) 
HORIZ=ESTARTX+O.2 

VERTESTORTY+3.1 

CALL SYMBOL(HORIZ,VERT,O.2,52,0.0,-1) 
HORIZ=STARTX+O.4 

CALL SYMBOL(HORIZ,VERT,O.2,’X (PIECEWISE’,0.0,11) 
HORIZESTARTX+1.0 

VERTSSTARTY+2.8 

CALL SYMBOL(HORIZ,VERT,©O.2,‘LINEARIZATION) =',0.0,16) 
HORIZSSTARTX+4.4 

CALL NUMBER(HORIZ,VERT,©O.2,DELX,0.0,4) 
HORIZESTARTX+0.2 

VERT=STARTY+2.4 

CALL SYMBOL(HORIZ,VERT,©O.2,52,0.0,-1) 
HORIZ=STARTX+0. 4 

CALL SYMBOL(HORIZ,VERT,O.2,’T (RUNGE-KUTTA) =’,0.0,17) 
HORIZ=STARTX+4.0 

CALL NUMBER(HORIZ,VERT,O.2,0TIME,0.0,4) 
HORIZ=STARTX+O.2 

VERT=STARTY+1.6 

CALL SYMBOL (HORIZ,VERT,0.2,‘X(0) =’,0.0,6) 
HORIZ=STARTX+1.5 

CALL NUMBER(HORIZ,VERT,©.2,DISPLO,0.0,4) 
HORIZ=STARTX+3.5 

CALL SYMBOL(HORIZ,VERT,0.2,'X(0) =’,0.0,6) 
HORIZ=STARTX+3.525 

VERT=STARTY+1.9 

CALL SYMBOL(HORIZ,VERT,O.2,75,0.0,-1) 
HORIZ=STARTX+4.9 

VERT=STARTY+1.6 

CALL NUMBER(HORIZ,VERT,0.2,V0,0.0,4) 
HORIZ=STARTX+0.3 

VERT=STARTY+0.7 

CALL PLOT(HORIZ,VERT,3) 

HORIZ=STARTX+0.8 

CALL PLOT(HORIZ,VERT,2) 

HORIZ=STARTX+1.0 

VERT=STARTY+0.6 

CALL SYMBOL(HORIZ,VERT,©.2, RUNGE-KUTTA’ ,0.0,11) 
HORIZ=STARTX+O.6 
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VERTSSTARTY+0.3 

CALL SYMBOL (HORIZ,VERT,0O.2,1,0.0,-1) 

HORIZ=STARTX+1.0 

VERTSSTARTY*0O.2 

he SYMBOL(HORIZ,VERT,O.2, ‘PIECEWISE LINEARIZATION’ ,0.0,23) 
NF2O 

CALL CGPL2(KA,YA,2,NF,4,HA,HB,HC,VA,VB,VC,ALPH) 

STOP 

END 


hahahah hed ddahdiddiddddtudedhidetsdadidedsddedadedddededdudededodddedddeded ddd tdddt444 tA 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
€ 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE POINT WHERE THE INTERVAL 
c CHORD LINE WOULD CROSS THE X-AXIS. = 
c 
thd hd dd dd ddd ddd ddd ddd daddaddeddeddodd dd dddedesd ddA LAL 

SUBROUTINE XPRIME(X0,X1,XSTAR) 

IMPLICIT REAL®8& (A-H,9-2) 

COMMON/COEFF/A,B 

IF (DABS(XO).LT.1.060-08) GO TO 600 

FOZAZKO+Bs ( KOe23) 

FISASKI+BR(X1#23) 

KSTARS(K1-(F1/FO)EKO)/(1-(FI/FO)) 

GO TO 6196 

600 CONTINUE 
KSTAR20.B0 
610 CONTINUE 
RETURN 
END 


Ahh aed tehed hd ddd dedi deh bed ddad ded Add doddshad de deddud had dadedddddad didadedodsddadedadadedaddcdaddeddaded 


c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE ANGULAR FREQUENCY FOR 
c AN INTERVAL. 
c 
EE A EE hd heheheh hd ded dated ddd hehedehdadshhedstsdededsdedehehededededsdadehdeddedadadadededededsdededadedadadadeddedaddadedod 

SUBROUTINE FREQ(XO,X1,N,PSTAR) 

IMPLICIT REAL®8& (A-H,O°Z) 

REAL#8 N 

COMMON/COEFF/A,B 

FOZAxKO+B* ( XO2*3) 

FisA2X1+82(X1#23) 

SLOPE=(FO°F1)/(XO-X1) 

PSTAREOSORT(SLOPE-N#22) 


RETURN 
ENO 
c 
c 
c 
EE EE ddd Ahhh dided didedehadshedadatshahadstedadidsdahshsdedadesddehedadehedatedshadsdedadeddadsdsdedadadedededadadededededededed 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE TIME INTERVAL FOR A 
¢ PARTICULAR SEGMENT BY USING A NEWTON-RAPHSON METHOD. IT ALSO HAS 
c A PROVISION FOR FINDING THE LAST TIME INTERVAL PRIOR TO THE FIRST 
c TROUGH ON THE DISPLACEMENT-TIME CURVE. 
c 
te Bead dh dah dehadidedsAahidhehatshedsdahatahdddshstidsdededesehsddsdededededstehedsddadsstshedstshadededadededadadodedaded 


SUBROUTINE TIME(XO,XDOTO,X1,0ELT,XSTAR,N,P,DELTAT) 
IMPLICIT REAL#& (A-H,O-72Z) 
REAL#8 WN 
DELTASDELT?0.05 
C1=xXO-XSTAR 
C25 (N2®(XO-XSTAR)+XDOTO)/P 
C3=-N2C1+P#C2 
C4=-PeCi-N*C2 
CSz-(Pee2-N2¥22)2C1-2.08P#NEC2 
C622.08PENeC1-(P*#*2-N22)*C2 
LAL Ld At A hdd ddd dadadsdededededededdedrdedehed dededcdededededdedsdadedededadadeRedodadeRedadadedededed dadeded 


c 

c FeMAIN FUNCTION (DISPLACEMENT ) 
c FPSF-PRIME (VELOCITY) 

c 


oe eh Ae Add Adhd hadedeh RatehatatedethadstadathadatedsdatahededatshadededsdatedstadetadedeRadeahatsteietsdadsdhadedadedededadidededaded 
700 CONTINUE 
F=X1-XSTAR-DEXP(-N2O0ELTA)*(C1#*O0COS(P*DELTA)+C2*0SIN(P*#O0ELTA) ) 
FP=-DEXP(-N¥OELTA)*(C3*¥OCOS(P*0ELTA)+C4*O0SIN(PFOELTA) ) 
URGE Pte OD 18) GOO a 70 
DELTAIZOELTA-F/FP 
DIFF=OELTAI-DELTA 
IF (DABS (DIFF).LT.1.90D-08) GO TO 730 
DELTASDELTAI 
GO TO 700 
oe A ahs Ae Aad sRedhseadatatadhaMadathadhstatathstststhadhstadeedadsRadssdatatededahehetshatehsRetedsdadadahetedsdehsdsdadadedadadadedsdadsdeModed 


AS THE OISPLACEMENT APPROACHES A PEAK OR TROUGH, THE VELOCITY 
APPROACHES ZERO. THE RESULT IS THAT INSTEAD OF F AND FP, THE 
FOLLOWING ARE USED IN THE RESPECTIVE POSITIONS: 


FPP=FP-PRIME (ACCELERATION) 


c 

c 

c 

c 

c 

c FP=MAIN FUNCTION (VELOCITY) 

c 

c 

c AND THE CALCULATION CONTINUES. 
c 
c 


EEE ELE EE LAL LALA AAA dai dadedihsdsdedadstiiedssdedshshuhitddrdadadided Medsdsdrdhhdedsdehsddadeddadeddal 
710 CONTINUE 
DELTA=DELT+0.05 


720 CONTINUE 
FP=-DEXP(-N¥DELTA)*(C3*O0COS(P*DELTA)+C4*OSIN(PEOELTA) ) 


FPP=-DEXP(-N*DELTA)*(CS*OCOS(P*DELTA)+CE*DSIN(P*DELTA) ) 
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DELTAIZSDELTA-FP/FPP 
DIFFSOELTAI-DELTA 
IF(DABS(OIFF).LT.1.00-08) GO TO 730 
DELTAZOELTA1 
GO TO 720 

730 DELTAT=DELTA 
RETURN 
END 


PHA RERORHHH ARORA RHREHHHHHHHHE REHM DOORN EMD ew ee Ot 


c 
¢ 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE VELOCITY AT THE END OF THE 
c SEGMENT BEING EXAMINED. 
c 
Sd Ah dd ddd Adhd ddd dsddadadedadsdshadakedehdedededodadadodeksdadedshededadedstothel 

SUBROUTINE SPEED(X0O,xXO0TO,XSTAR,.N,DELTAT,P,xXDBOT1) 

IMPLICIT REAL#8&8 (A-H,0-2) 

REAL*8 WN 

Ci12xB0TO 

C2e-Nz(NF(XO-KXSTAR)+KOOTO) /P-P2(XO-XSTAR) 

KOOTISOEXP(-N#DELTAT)*(C1*O0COS(P2#DELTAT)+EZ220SIN(PSZOELTAT) ) 

RETURN 

END 


eM ehh de hdd dah heh Added ddd ddd hedaheddh ha dahdd dedshed head A dadhadsdhdehedadahAhatdedshehehatatshihehededed 


c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CONTAINS THE OIFFERENTIAL EQUATIO@S TO BE 
c SOLVED BY OVERK: THE INSTANTANEOUS VELOCITY AND THE GRIGINAL 
c EQUATION. "DFORCE” IS THE DAMPING FORCE. 
c 
CHHHHEHHHMHHHHHRESHHH HAHAHAHAHAHA 
SUBROUTINE FCN(N,X,Y,YPRIME) 
IMPLICIT REAL=8 (A-H,O-72) 
REAL*8 Y(N),YPRIME(N),X 
COMMON/COEFF/A,8B 
COMMON/DAMP/9 
YPRIME(1)2V(2) 
IF (DABS (YPRIME(1)).LT.1.00-08) GO TO 800 
SGNV®YPRIME(1)/OABS(YPRIME(1) ) 
co TO 816 
800 CONTINUE 
SGNV=0.D0 
810 CONTINUE 


DFORCE=02 (0ABS(YPRIME(1))**2)*SGNV 
YPRIME(2)2-(OFORCE+A#Y(1)*B*(Y(1)*#*3)) 
RETURN 

END 
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ce 


x 
cx PROGRAM VANODERPOL * 
cx x 
Cx = 
Cz = 
Cx THE FOLLOWING PROGRAM CALCULATES THE SOLUTION FOR THE VAN DER * 
cz POL EQUATION: = 
Cz z 
Cz X(DOUBLE-OOT) +MUs (X#¥2-1)*xX(00T)+xX20 * 
Cx x 
cz OBTAINED BY PIECEWISE LINEARIZATION USING CHORDS OVER SEVERAL = 
cx CYCLES OF THE DISPLACEMENT-TIME CURVE. = 
Cet z 
Ce x 
Cs THE RESULTS ARE BASED ON THE STANDARD FORM: * 
Cx = 
ce MSCZEXP(R*OELTAT) = 
Cs = 
cz RIZS°N+SORT(NES2°-PER?2) = 
Ce R2S-N-SORT(N#*2-P2%2) = 
cz * 
cz WHERE THE UNDEROAMPED, CRITICALLY DAMPED, AND OGYERDAMPED ee 
cx APPROXIMATIONS WOULD DEPEND UPON MU AND AN ESTIMATED a 
ce DISPLACEMENT. p = 
cz = 
cz THE VARIGUS PARAMETERS ARE EXPLAINED AND CALCULATED IN THE z 
cx PROGRAM. = 
Cz = 
ct z 
cz THE PROGRAM ALSO SOLVES THE EQUATION USING FIFTH: AND SIXTH- = 
cx ORDER RUNGE-KUTTA METHODS. BOTH SOLUTIONS ARE PLOTTED, AS = 
cz WELL AS THE PHASE-PLANE DIAGRAMS. cS 
ce 3 
CSeezreze seers ee Ree TSCA ETE T SECTS ESE RKTEKTE CTE ATE KSEE TERETE ESE eT 


nanananannnn 


IMPLICIT REAL¥8 (A-H,0-Z) 

EXTERNAL FCN 

REAL*& Y(2),CN(24) ,W(2,20) 

REAL*®&38 K,MU,N 

REAL#&4 AMPLP(16600) ,VP(10060) ,TP(10000) 

REAL®& AMPLRK( 10000), VRK( 10000) , TRK( 10000) 

REAL*4 YP(10000) , VPP(10000) , TPP(10000) 

REAL#4 YRK(10000) ,V¥PRK( 10000) , TPRK( 10000} 

REAL*4@ HAOD,HBOD,HCD,VA0,vV8D, VCD 

REAL*4 HAP,HBP,HCP, VAP, VBP, VCP % 

REAL24 XA0(2),YA0D(2),XKAPH(2),YAPH(2) ,XAPV(2),YAPV(2) 

INTEGER*®&2 ALPHD(20) ,ALPHP(20) 

COMMON MU 
CHHHARHHAHHHHHHHHHHHHHHHHHH HAHAH KN HHH HMM AHHH 


THE FOLLOWING VALUES ARE READ FROM DATA FILE VOPPDATA: 


MUZAS IN THE EQUATION 


OISPLO=INITIAL AMPLITUDE 
VO=INITIAL VELOCITY 
TIMEO=INITIAL TIME 


DELTAT=TIME INCREMENT (PIECEWISE SOLUTION) 
HCYCLE2NUMBER OF HALF-CYCLES (PIECEWISE SOLUTION) 
OT=TIME INCREMENT (RUNGE-KUTTA SOLUTION) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c HAD,HCD=PLOT PARAMETERS FOR HORIZONTAL AXIS OF DISPLACEMENT-TIME 
c CURVE (HCD AN INTEGRAL MULTIPLE OF 7.0} 
c 
c 
€ 
c 
c 
c 
c 
c 
c 
c 
c 
‘S 
Cc 
c 
c 


VCD=PLOT PARAMETER FOR VERTICAL AXIS OF DISPLACEMENT-TIME CURVE 
(AN INTEGRAL MULTIPLE OF 12.0, 12.0 GIVING BEST RESULTS) 


MAD, YAD=PLOT PARAMETERS FOR PLOTTING ZERO LINE OF DISPLACEMENT - 
TIME CURVE 


ALPHD=ARRAY FOR PLOT AXIS LABELS OF DISPLACEMENT-TIME CURVE 


VEP=PLOT PARAETER FOR VERTICAL AXIS OF PHASE-PLAE DIAGRAM (AN 
INTEGRAL MULTIPLE OF 12.0, 12.0 GIVING BEST RESULTS) 


ALPHP=ARRAY FOR PLOT AXIS LABELS OF PHASE-PLANE DIAGRAM 


AE MAE AEH AEA AE OA OE A HY OO OT EO ET OOD OP OO OY OF OE OOO OA OOOO OO OOo OO OO OOO 
READ(5,10) MU 
10 FORMAT(010.6) 
READ(S,20) DISPLO,VO,TIMEO 
20 FORMAT(3D10.6) 
READS, 20) DELTA, HCYCCE, Dit 
30 FORMAT(3010.6) 
READ(5,40) HAD,HCD 
40 FORMAT(3F10.4) 
READ(S,50) VCD 
50 FORMAT(F10O.4) 
READ(S5,60) XAD(1) 
6O FORMAT(F10.4) 


READ(5,70) YAO(1),YAD(2) 
70 FORMAT(2F10.4) 

READ(S,80) (ALPHD(I),1=1,12) 
8O FORMAT( 1244) 

READ(S5,90) (ALPHD(I),1=13,16) 
30 FORMAT(4A4) 

READ(S,100) (ALPHD(I),1=17,20) 


100 FORMAT (4A4) 
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READ(S,110) veP 
110 FORMAT(F10.4) 
READ(S,120) (ALPHP(I),12=1,12) 
120 FORMAT(12A4) 
READ(S,130) (ALPHP(1),1=13,16) 
130 FORMAT (404) 
READ(S,140) (ALPHP(I),1=17,20) 
140 FORMAT(4A4a) 
Td dads heheheheh Aehshedidahetedetadsdehahedadsdedsdsdadsdsdededehsdedhedadaddidiadad ddd dededddudeded dad ded dedsdededdededdded 


SETTING THE INITIAL CONDITIONS. 


c 
c 
c 
c MOZINITIAL DISPLACEMENT FOR EACH SUCCESSIVE SEGMENT 
c XDOTOSINITIAL VELOCITY FOR EACK SEGMENT 
c TOSINITIAL TIME FOR EACH SEGMENT 

c XPREVSPREVIOQUS FINAL SEGMENT DISPLACEMENT 

is 
c 


hahah dehehdehsAdhhsteddaddehsAeded Aededsd Adduhsdedsdadsdadddedaddhsdaddadaddddahadeddddddededdedehdaddadod ded 
KOSOISPLO 
xOGTO=VO 
TOSTIMEO 
XPREV=OISPLO 
A heeded dedshide da ddd dted ddd hadad ddd didsdudaddshdeheddadadshdaheddededadadiduted doddadedad ded deddidededdikdke 
c 


c SIGSSUBROUTINE FOR CALCULATING SGN(X) 
c SGNXO=CALCULATED VALUE 
c 


Ue ee eed ded d dh Dd dd ddd hd ddd ddd A dedadedadddadadeddsdidsddadehehsdedadcdodahdededcdetadadedad 
CALL SIG(X0,SGNXO) 
Ee ee de dd dh hd ddd ded ddd hdd ddd ddedidded ddd dd ddedadddededededadededeheddddaeded 


5 ISCOUNTER USED FOR PLOTTING PURPOSES 

5 KSCOUNTER FOR THE NUMBER OF HALF-CYCLES (AN INTEGRAL MULTIPLE OF 

c 10.0, 10.0 GIVING BEST RESULTS) 

SUSSOTTT LUT UL CLUES SETTLER TEN TUGTTTTSETO EE TEUENCHRETITTROTIOORETER PACT Ee 
Keio 


TE dd h ed hhh dd debe daha Aaded Aad ded da de dsdihed dadsdddadsdadsdstedebadedshedstshededehadedsdedadedadsdedadededadaheddad 

c 

c THE EQUATION PARAMETERS ORE WRITTEN INTO QUTPUT FILE VOPPNUM. 

c 

heh de ahah Medea hd dehe di ded Aida dedaddadidstdetsdhsdededadedatsdadededadadsdadedatsdstedsdsdhiddedhadadadedsdededdadal 
WRITE(10,150) 


1$0 FORMAT(‘’1’,’PIECEWISE LINEAR RESULTS FOR THE EQUATION: ’) 
WRITE( 10,160) 
160 FORMAT(‘*O’ ,’xX(ODOUBLE-OOT) +MUs(Xe22-1)*xX(DOT)+xK=0°% ) 
WRITE(10,170) MU 
170 FORMAT(‘’O’ , ’MU=’ ,G20.10) 
WRITE(10,180) DISPLO,VO 
18GO FORMAT(‘0O’ ,’X(0)2’,G20.10,2xK,’xX(00T)(9O)=’ ,G20.10) 
WRITE( 10,190) 
iSO, FORMAT 2H! Skt hae et OX Mit Oye VEL O Cit Vien) 
A ed Ad ed dd dd dh d ded dd dede dd dededed dadedd ddd ddedsddditedsdaddeddsdedadiddadudadedddekedededahededadeded 
c 
c THE FOLLOWING IS THE CALCULATION OF THE SOLUTION FOR & PARTICULAR 
c HALF-CYCLE, STARTING AT STEP 200 AND ENOING AT STEP 250 
c 
c XSOISPLACEMENT USED FOR CALCULATING A DAMPING COEFFICIENT (SEE 
c BELOW) 
c TISCUMULATIVE TIME 
c 
Ae Ae Add hdh AA ddd d de ddadad ddedadadedatedededadsdadadehadedededeAededadadadadedadadadedededededededsdededodadad 
200 CONTINUE 
I=I+1 
X=XxXO 


TI=STO*DELTAT 
0 EB he ene ehhh dds hetea Reddit ded det disdathsetsdedaddedsaddstehidededsadatetededsdteiedeMededetehadedseedah 


THE FOLLOWING IS THE ITERATION TO FINO THE END DISPLACEMENT FOR 
THE PRESENT SEGMENT. 


C=OAMPING COEFFICIENT 
N=OAMPING FACTOR 


Cc 

c 

c 

c 

c 

c 

c 

c DAMP=SUBROUTINE FOR CALCULATING DEGREE OF DAMPING AND 
c CORRESPONDING DAMPED ANGULAR FREQUENCY 

c PSTAR=CALCULATED VALUE 
( 

c 

2 

Cc 

Cc 

c 

c 

c 

c 

c 


DISPL=SUBROUTINE FOR CALCULATING SEGMENT LENGTH 
DELTAK=CALCULATED VALUE 


SPEED=SUBROUTINE FOR CALCULATING END VELOCITY 
XDOTI=CALCULATED VALUE 


X1=SEGMENT END 


CA he Made its Madh ated Madades tess thaMaieathsdesdatasdadeadadaadadedadatsteadstadhststhetsAsdetatadedsdsdiididatiMsdedsdstadsetedetnetidedhedesdet adil 
210 CONTINUE 
C2MUF (X=*2-1.0) 
N=C/2.0 
CALL DAMP(N,PSTAR) 
CALL DISPL(xX0O,XD00TO,N,DELTST,PSTAR,DELTAX) 
CALL SPEED(X0O,XDOTO,N,DELTAT,PSTAR, XO0OT1) 
X1=2KO+DEL TAX 
OIFFHX1-xXPREV 
IF(DABS(DIFF).LT.1.00-08) GO TO 220 
XPREV=X1 
X=XO+DELTAX/2.0 
Gop 7Gr 206 


220 CONTINUE 
CHHHHHHHHHHHAHHHHAAHHHHHMHAHAHHHHHHAHHMHHHHR EMDR HAM 


c 

c TESTING FOR THE CHANGE IN SIGN OF THE OISPLACEMENT. Va na aks 

c DIFFERENT, THE PROGRAM BEGINS TESTING FOR EITHER A PEAK OR TROUGH, 
c STARTING AT STEP 250. IF NOT, THE ITERATION CONTINUES 

¢ 
CHHHHAAHHHHHHHHHHHAHHHHHHHHYRHHHMHMRHH HMA YO 


CALL SIG(X1,SGNX1) 


229 
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221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
aa7 
238 
239 
240 
241 
262 
243 
288 
245 
246 
247 
248 
2493 
250 
281 
252 
253 
254 
255 
256 
287 
2568 
2593 
260 
261 
262 
263 
264 
2658 
266 
267 
268 
263 
270 
P32 1 | 
272 
Za 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
230 
291 
292 
293 
2394 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
=f 4i 
322 
323 
324 
325 
326 
ese dal 
328 
3293 
330 


IF(SGNX1.NE.SGNXO) GO TO 250 
230 CONTINUE 
LT dale hidAedehidedadedahedidedehedahedededetuhededsdudededdedadsdadidodeddedddaddadddad cea tLe LT UA 


c 

c TPSARRAY FOR TO 

c AMPLP=ARRAY FOR XO 
c VP=ARRAY FOR XDOTO 
c 
c 


A Matheda heh heddedudededededdhsdadedsdddadudsdedded dd dadidededdaddedsdddadd dds LLL ULLAL 

TP(I)2TO 
AMPLP(1)2xXO 
VP(I)2xo0TO 

Ah hd ddeh deh didehihehedehsdedaddediddidadeddaddedededidid dad dadeddddddaaa dA LLL LL LD 

c 

i=} THE INTERIM VALUES ARE WRITTEN INTO OUTPUT FILE VOPPNUM. 

c 

TE hh ddd ddd Added deddededddedddd dd duded dededded Add dddddededed add LAA LLL LLL 
WRITE(10,240) TO,XO,xXDOTO 

240 FORMAT(1X,3(G620.10,2x)) 
Th deed dedtdddedsdddrdedideddaddddddededdddddddeddeddddddddd dd LL 
c 


c RESETTING THE INITIAL CONOITIONS FOR THE NEXT SEGMENT. 
c 
LE MM dehdehehshsdsdsdehshedsteduhtedsddededidedihedadeddduddededuddedadidedediddddedddduded ddd ddeddddddd tata 
XOsSX1 
xXOOTO=xXDOT! 
TosTi 
GO TO 200 


Sh bh heh d dededihedehsdudsdididadddididedadududsds ddd Adideddadcdadedudadidedddddd dd dd Adddd tata 


c 

c STARTING AT STEP 250, THE PROGRAM TESTS FOR EITHER A PEAK OR 

€ TROUGH (I. £&., ZERO VELOCITY) IF THE VELOCITY IS ZERO AT THE END 
c OF THE CURRENT TIME INTERVAL, TKE PROGRAM MOVES TO STEP 370 AND 

Cc STARTS THE CALCULATIONS FOR THE NEXT HALF-CYCLE. LF NOT] A 

c POSSIBLE CHANGE OF SIGN FOR THE VELOCITY IS TESTED FOR. SHOULO IT 
c BE NEGATIVE, THE PROGRAM GOES TO STEP 230 AND CONTINUES. a 

€ POSITIVE RESULT ALLOWS THE PROGRAM TO ESTIMATE THE VALUE OF TKE 

c OISPLACEMENT AT THIS PEAK GR TROUGH, XF (SEE STEPS 310 TO 320). 

c THIS VALUE IS COMPARED TO & PREVIOUS VALUE (XPREV), AND IF THE 

€ DIFFERENCE IS VERY SMALL, THE PROGRAM GOES TO STEP 320 SND 

€ CONTINUES. IF NOT, XF BECOMES XPREY, THE PARAMETERS ARE RESET, 

c AND THE ITERATION CONTINUES AT STEP 310. 

c 
¢ 


Sadia aedhadeathstesdiatasthatadhatasthadatacteatedsdhseadsdeahatsdshededehsdsdedehshedsdidedsdetadidshadehedsdadedddaduddedehadedsdadadudaddededededadehed 

250 CONTINUE 
TF (DABS (XDOT1).GT.1.00-08) GO TO 290 
Iel+} 
TPC eT 
AMPLP(I)=X1 
vP(1)sxDOT! 
WRITE(10,260) 

260 FORMAT( ‘0’ ) 
WRITE(190,270) T1,X1,xX00T1 

270 FORMAT(1X,3(G20.10,2X)) 
WRITE( 10,280) 

280 FORMAT( ‘0’ ) 
SGNXO=-SGNXO 
GO TO 370 

290 CONTINUE 
CALL DISPL(XO,xXDOTO,N,OELTAT,PSTAR, DELX) 
CALL SPEED(X0O,XDOTO,N,DELTAT,PSTAR,XOOT1) 
CALL SIG(xXO0T1,SGNV1) 
IF(SGNV1.E90.SGNX1) GO TO 230 
TP(1)2TO 
AMPLP(1I)=xXO 
vVP(I)=sxO0TO 
WRITE(10,300) TO,XO0,xXDOTO 

300 FORMAT(1X,3(G20.10,2X)) 
XF=ZKO+DELX 
TI=TI-DELTAT 

OE hs daha AadieahasheRahade hahah hedatstehadshedadstsdshadahaditshsdedatehetedsdatedudsdsdshehehededatedsdatsdidedidetatedsdededRedeAatadadedal 


c 

c THE ITERATION FOR EITHER THE PEAK OR TROUGH IS DONE FROM STEPS 310 
c TO 320. 

c 

c DELT=ESTIMATED VALUE FOR THE TIME INTERVAL TO REACH ZERO VELOCITY 
c TIME=SUBROUTINE FOR CALCULATING THE PRECISE VALUE FOR THIS TIME 

c INTERVAL 

c OTIME=CALCULATED VALUE 

c 
CHHHHHHHHAHHARHRHAHHARAHHAHHHHAHHHHMHHHMHADHAHHARA HRSA 


3210 CONTINUE 
DELT=OELTAT 
CALL TIME(X0,XDOTO,DELT,N,PSTAR,DTIME) 
CALL DISPL(X0O,XO00TO,N,DTIME,PSTAR, DELTAX) 
CALL SPEED(XO,XDOTO,N,DTIME,PSTAR, XOOT1) 
X1=XO+DELTAX 
DELX=X1-XF 
IF(DABS(DELX).LT.1.00-08) GO TO 320 
XF=X1 
N=SMU2 (XF#*2-1.0)/2.0 
CALL DAMP(N,PSTAR) 
GO TO 310 


320 CONTINUE 
CHHEHHHHHHHHAH AHHH HHH HMMM MHA HHH 


c 

c THE VALUES FOR THE PEAK OR TROUGH ARE WRITTEN INTO OUTPUT FILE 
‘= VOPPNUM. 

(= 


[ote A A Aid hts RehedeM adda RadedeatihadshadadededatscsdaMadadadetedsdsMatidsdadshetstadedshadsdidedshadededsideddadehsehsdsesdadeiehatel 
TI=TI+OTIME 
CALL SPEED(X0O,xX00TO,N,DTIME,PSTAR, XDOTI) 


24? OC | 

SL GH 2 9 a 
AMPLP(1)=X1 
vP(1I)=xXDO0T1 


WRITE(10,330) 
330 FORMAT( ‘0’ ) 

WRITE(10,340) T1,X1,XDO0OT1 
340 FORMAT(1X,3(G20.10,2X)) 


230 
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331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
3498 
350 
351 
352 
353 
354 
3s5 
3586 
357 
388 
3s9 
360 
361 
362 
363 
384 
365 
366 
367 
368 
369 
370 
371 
aoe 
oe i i 
374 
375s 
376 
377 
373 
3793 
380 
381 
382 
383 
384 
335 
386 
387 
388 
389 
330 
391 
392 
333 
394 
395 
396 
397 
3398 
399 
400 
401 
402 
403 
404 
40s 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 


WRITE(10,350) 
350 FORMAT(1X,3(G20.10,2x)) 
tA kA hdd ddd ded dd ded ded Ld dddd ddddddddddddd Adda LLL 
Cc 
c TESTING FOR THE NUMBER OF HALF-CYCLES. 
c 
Eh A Eh de dedededed deh dideddsdsdehhhsdedsddehdddddeddudedddddid ddd LALLA 
IF(K.EQO.HCYCLE) GO TO 380 
CHHHNHHHHHHHH AHHH MMAR OHH MUM EMH 
c 
c RESETTING THE INITIAL CONDITIONS FOR THE NEXT HALF-CYCLE. 
c 
CHHHMHEHHHHHMHHATAM ER HHHAHERERHEHAHAERER ELEN ENERO DREN RHR ROH 
MOSK 
XxOOTO=XDOTi 
XPREV=xKO 
X=xoO 
SGNXO=-SGNXO 
KeKe1.0 
CHHHHHHHHHMHHHNERHHOHRHRARAHEMH HERE HMMA ERR AHR REHOME OH 


c 
c ONCE THE PEAK OR TROUGH CO-ORDINATES HAVE BEEN FOUND, THE VALUES 
c AT THE ENO OF THE NEXT TIME INCREMENT ARE CALCULATED, SINCE THE 
c FORMER DO NOY GCCUR AT THE END GF THE PREVIOUS ONE THE 

c DISPLACEMENT IS FOUND EXACTLY AS WAS DONE FROM STEPS 210 TO 220, 
c EXCEPT WITH THE TIME INTERVAL BEING OIFFT. 

c 

c 


| heh ha hetsdadehededsdhdedsdududededdedsddodsdudidadsdidededsdedadedsdeddededsdadadudddadad ddd tad dO 

OIFFT=OELTAT-OTIME 
TOSTIFOLFFT 

360 CONTINUE 
CEMUs (X¥#2-1.0) 
N#C/2.0 
CALL DAMP(N,PSTAR) 
CALL DISPL(XO,XDOTO,N,ODIFFT,PSTAR, DELTAX) 
CALL SPEED(KO,XDOTO,N,DIFFT,PSTAR,XDOT1) 
X1V=SXOFDEL TAX 
OIFFX=X1-xXPREYV 
IF(DABS(OIFFX) .LT.1.00-08) GO TO 370 
XPREV=X1 
MEMOPDELTAK/2.0 
GO TO 360 

370 CONTINUE 
xXOSxK1 
xBDOTO=XDOTI 
GG TO 200 

38O CONTINUE 
NPOINT#1 

Ee A A dd heh dd ddedded ddd ddd ded ddddidadedaddiddadeddedddededddudsddedudadediddededded dA deded ddA a ee 


THE FOLLOWING SECTION (ENOING AT LINE 390) IS THE RUNGE-KUTTA 
SOLUTION OF THE SAME ORIGINAL EQUATION. 


c 
c 
Cc 
c 
Cc 
c 
c TFINALZ=FINAL TIME 
c INTYL=NUMBER OF INCREMENTS 
c 
CHM © WH HH OH A OM AE HAY BY OPH DEW A AE AE OE HOE AE OP ME AE AES AH AAO OA Oat et att 
TFINAL=T1+0.1 
INTVLETFINOAL/OT+1 
ee ee ee ee eee de Ad hdd Ahhh dd ddd dd ddd hdd ddd dddadddadedadidadadadededad ddd 
Cc 


is THE FOLLOWING ARE PARAMETERS FOR THE RUNGE-KUTTA SUBROUTINE. 
c CONSULT THE IMSL MANUAL FOR "“DVERK“ FOR FURTHER DETAILS. 
c 


CHHHMARERAHHAHHHHHARHHAMHEAHRHHNRHHHHHHHH EHH HHRMA 
XRKSTIMEO 


Y(1)S0ISPLO 
Y¥(2)2V0 
Oe ee ee eee eA hd Ada Adda adda ddeddeddddd Aad AA 
c 
c BIGRK=LARGEST VALUE OF RUNGE-KUTTA VELOCITY (FOR PLOT SCALING) 
c 
Ee Ee eee TP eee PPP ee ee ee ee ee ee ee ee 2] 
NEOQN=2 
NWe 2 
TOL=1.0D-904 
IND=1 
XEND=DT 


CHHHAHHHHRAHHHHRAHRAHAHHIR HAHAHAHAHAHA RAHN 
c 


c ZEITTSCUMULATIVE VYALUE OF TIME AT END OF EACH INCREMENT 

Cc 

CMH MM A MM OMA HOHE OOH At AY OA HE HE OAD OPO AAO 9D OAH tO OOOO OOO tO ot 
ZEIT=0.0 


CHHEMHHHHHHHHHAHHAMHHRAHHHHRRHHHHHEHHHHHHHHAHHAMEHH AHHH RAH 


c 

c AMPLRK=ARRAY FOR AMPLITUOE VALUES 
c TRK=ARRAY FOR TIME VALUES 

c YRK=ARRAY FOR VELOCITY VALUES 

c 
c 


HHHMHHHHHHHHHHHAHEHHRAH AHHH HHH MH 

DO 390 J21,INTVL 

AMPLRK(J)=Y(1) 

TRK(J)=ZEIT 

VRK(J)=¥(2) 

CALL DVERK(NEON,FCN,XRK,Y,XEND,TOL,IND,CN,NW,W,IER) 
CHHHHMHHAHHAHHEHHHHHHHHHHRA HMMM 
c 
c INCREMENTING THE TIME VALUES. 


c 
CHA HMMM WM FH OM OM OH FOE OH AOA OD AOA OOO HOP AO OO 


ZEIT=xXEND 
XEND=XEND+0T 
390 CONTINUE 
CMH HHH HAH DE HEH AE YEP AE HEH AYE HAA EIA OOF 


c 
c THE CALCULATED VALUES ARE WRITTEN INTO OUTPUT FILE VOPNNUM 


c 


2a) 
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441 
442 
443 
444 
845 
446 
447 
288 
449 
450 
4$1 
452 
453 
854 
ass 
4S6 
4s7 
458 
4s93 
460 
461i 
462 
463 
464 
465 
466 
467 
468 
469 
470 
a7j 
472 
473 
474 
475 
476 
477 
478 
a79 
480 
481 
482 
483 
434 
48s 
4686 
487 
488 
489 
4390 
491 
492 
433 
aga 
43s 
496 
437 
498 
4993 
500 
$01 
502 
503 
504 
sos 
506 
SsOo7 
508 
509 
$10 
S11 
$12 
$13 
s14 
s1s 
516 
517 
$18 
$19 
$20 
521 
$22 
$23 
524 
S25) 
$26 
$27 
528 
s29 
530 
531 
$32 
533 
$34 
535 
S36 
S37 
$38 
wee) 
s40 
$41 
542 
$43 
saa 
545 
546 
S47 
548 
549 
550 


dd Added deed eh Add hd dd ddd ddudd dedddded adda a LAA Ladd Adak 


800 


410 


420 


430 


440 


450 
460 


WRIYE( 11,400) 


FORMAT(’1’, ‘RUNGE-KUTTA RESULTS FOR THE EQUATION: ’) 
WRITE( 11,410) 


FORMAT(’O’ ,‘XK(DOUBLE-OOT) ¢MU(X**22-1)2K(DOT)+x=0") 


WRITE( 11,420) MU 

FORMAT(’O’ , ‘MU=’ ,G20.10) 

WRITE(11,830) DISPLO,VO 

FORMAT( ‘0’ ,‘X(0)2’,G620.10,2K,'xX(DOT)(O)2’ ,G20.10) 
WRITE( 11,440) 

FORMAT ="), 8X), (TN IMEGE, VOX xX (ims) er OX VOGT Wy) 


DO 460 Ms1,INTVL 

WRITE(11,450) TRK(M),AMPLRK(M), VRK(M) 
FORMAT(1X,3(G20.10,2x)) 

CONTINUE 


tA hd dd Added ded ddd ddd Add dd dad dddaddaddidadeddededidedddddddedudsddedddededdodededadodadeded 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


470 


280 


THE FOLLOWING FINOS THE LARGEST MAGNITUDES OF TRE OISPLACEMENTS 
AND VELOCITIES FOR THE SOLUTIONS FOR PLOT SCALING PURPOSES. 


BSIGOPSLARGEST VALUE OF PIECEWISE LINEAR DISPLACEMENT 
BIGVP=LARGEST VALUE OF PIECEWISE LINEAR VELOCITY 


BIGORK=LARGEST VALUE OF RUNGE-KUTTA DISPLACEMENT 
BIGVYRK=LARGEST VALUE OF RUNGE-KUTTA VELOCITY 


beheaded hahaha haheddeteheddedstedahsdededaddsdsAadadadadadedadedsdadedadatsMadedsdadadatidadatateddedsdatededadidudehahedahadal 


BIGDP=SOISPLO 

BIGVP=VO 

00 470 IB=1,NPOINT 

DISPSOAMPLP( IB) 

VEL=SvP(IB) 

IF(DABS(DISP) .GE.BIGDP) BIGOP=O0ABS(DISP) 
IF(DABS(VEL) GE.BIGVP) BIGYP=0ABS(VEL) 
CONTINUE 

BIGORK=OISPLO 

BIGVRK=VO 

0G 480 IBsi,INTYVL 

DISP=OMPLRK( IB) 

VELZVRK( 18) 

IF(DABS(DISP).GE.BIGORK) BIGDRK=OABS(ODISP) 
IF(DABS(VEL).GE.BIGVRK) BIGVRK=O04BS( VEL) 
CONTINUE 


CHHHHHRHHHERHHEHHAHAOHHHEARHTHHHHEHHHHEERHHEHAHHRHMR 


c 
c 
c 
c 


THE NEXT FEW LINES ARE USED IN FINALIZING ALL THE PLOT PARAMETERS 
WHICH INCLUDES AXIS SCALING. 


CHHHHOHHHAHHREAHRHAH HORA EH AHEAD 


4390 


S500 


510 


520 


§30 


540 


sSsO 


S560 


S70 


BIGD=BIGORK 

IF(B8IGOP.GE.BIGORK) BIGD=8IGODP 

Me! 

IF(BIGO.LE.1.90) GO TO S00 

CONTINUE 

DECD=BIGD/(10.0#=mM) 

PECOECDALE.1. 0) G8) 7To S20 

MEM+1 

Go TO 4390 

CONTINUE 

DIGD=BIGO#(10.022m) 

IF(OIGD.GE.1.0) GO TO $10 

M=M+1 

GO TQ S00 

CONTINUE 

OECD=01IGD/10.0 

Me-(M-1) 

CONTINUE 

IF(OECD.LE.0.1) VFACT=0.1 
IF((DECD.GT.0.1).AND.(DECD.LE.0.25)) VWFACT#O0.25 
IF((DECD.GT.0.25).AND.(DECO.LE.0.5)) VFACT=0.5 
1F((DECD.GT.0.S).AND.(DECD.LE.1.0)) VFACT=1.0 
SFACT=VCD/10,.0 

VAD=-VFACTFSFACT#10.0=2mM 

OEN=VCD/(2.0*SFACT) 

VBD=(VFACT/DEN)*10.022M 


Ms) 

IF(TFINAL.LE.1.0) GO TO S40 

CONTINUE 

DECT=TFINAL/ (10.0% *M) 

EP QO ECW MLE 20) SO. 10S 60 

M=M+1 

GO TO 530 

CONTINUE 

DIGT=TFINAL®(10.0*2M) 

IF(ODIGT.GE.1.9) GO TO S50 

M=M+1 

GO TO 540 

CONTINUE 

DECT=OIGT/10.0 

M=-(M-1) 

CONTINUE 

IF(DECT.LE.©.07) HFACT=0.1 

IF ((OECT.GT.0.07).AND. (DECT.LE.0.14)) HFACTSO.2 
IF ( (DECT-GT.©.14).AND.(DECT.LE.O.35)) HMFACT20.5 
IF ((DECT.GT.0.35).AND.(DECT.LE.0O.7)) HFACT=S1.0 
TEV UDECT.-GT.0.7).ANO.(OECT.LE.1.0)) HFACTS=2.06 
HBO=HFACT*¥10.02*(M-1) 

LONG=HCD 

XAD(2)=O0FLOAT(LONG)*HBD-0.005 


BIGV=BIGVRK 
IF(BIGVP.GE.BIGVRK) BIGV=BIGVP 
M=1 

IF(BIGV.LE.1.0) GO TO 580 
CONTINUE 

DECV=BIGV/(10,0**M) 
IF(OECV.LE.1.9) GO TO 600 
M=M+1 

Go TO 570 
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ss2 
s583 
554 
s55 
S56 

$57 
$58 
ss9 

560 
S61 

S62 
563 
S64 
S65 
S66 
S67 
S68 
sé9 
S70 
S71 

S72 
$73 
574 
57S 
S76 

s77 
s78& 
s73 
S860 
58i 

582 
$83 
584 
S85 
S86 
S87 
$88 
583s 
$30 
s91 

532 
$33 
594 
595 
$936 
sSs7 
ss6 
ss9 
600 
601 

602 
603 
604 
60s 
606 
607 
608 
60s 
610 
611 

612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

622 
623 
624 
625 
626 

627 
628 
623 
630 
631 

632 
633 
634 
635 
636 
637 
638 
639 
640 
641 

642 
643 
644 
645 
646 
647 
648 
649 
650 
6S1 

652 
653 
654 
655 
656 
657 
658 
659 
660 


5380 


$30 


§00 


CONTINUE 

DIGV=BIGV#®(10.0"2mM) 

IF(DIGV.GE.1.0) GO TO 590 

M=M+i 

GO TO S8&O 

CONTINUE 

DECV=DIGV/10.0 

Me-(M-1) 

CONTINUE 

IF(OECV.LE.0.1) VFACT=0.1 
IF((OECV.GT.0.1).ANO.(DECV.LE.0.25)) VFACT20.25 
IF((DECV.GT.0.25).ANO.(DECV.LE.0.5)) VFACT=0.5 
ITF ((DECV.GT.0.5).ANO.(DECV.LE.1.0)) VFACT#=1.0 
HAP=-VBD®(VCD/2.0) 

HBP=VBD 

HCP2=VCD 

SFACT#VCP/10.0 

VAP=°VFACT*SFACT#10.022mM 

DENZVCP/(2.0#SFACT) 

VBP=(VFACT/DEN)210.02=5m 

XAPH(1)2HAP+0.005 

XAPH(2)2-HAP-0.005 

YAPH(1)20.0 

YAPH(2)20.06 

XAPV(1)30.0 

KXAPV(2)20.0 

YAPV(1)2VAP+0.005 

YAPV(2)=-VAP-0.005 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
i 


610 
€20 


630 


640 


THE FOLLOWING SECTION SETS UP THE PIECEWISE LINEAR RESULTS SO THAT 
BETWEEN SO AND 60 POINTS ARE PLOTTED, OEPENOING ON HOW CLOSE THE 
TOTAL NUMBER OF CALCULATIONS (NPOINT) IS TO AN INTEGRAL MULTIPLE 
OF SO, 


YPSARRAY FOR PLOTTED PIECEWISE LINEAR DISPLACEMENTS 
TPP2ARRAY FOR PLOTTED PIECEWISE LINEAR TIME VALUES 
VPPSARRAY FOR PLOTTED PIECEWISE LINEAR VELOCITIES 


HARARE RARARAHAHRRERHRNERHREHHHURERREHAHHREH AHHH RRM HMM 


INCPSNPOINT/5O 
IDEC=OFLOAT(NPOINT/50)-INCP 
IF(IDEC.GE.0.5) INCPENPOINT/SO+1 
NPPE1 

NOP=1 

CONTINUE 

YP(NPP)=AMPLP (NDP) 
TPP(NPP)=TP(NDP) 

VPP (NPP) 2VP(NDP) 

NPPZNPP+1 

NOPSNOP+INCP A 
IF(NOP.GE.NPOINT) GO TO 620 
GO TO 610 

CONTINUE 
IPOINT=(NOP-NPOINT)-INCP/2 
IHALF=INCP/2 
IF(IPOINT.LE.IHALF) GO TO 630 
YP (NPP) =AMPLP (NOP) 
TPP(NPP)=TP(NDP) 

VPP (NPP) =VP(NDP) 

GO TO 640 

CONTINUE 

NPP=NPP-1 

NDP=NOP-INCP 

CONTINUE 
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c 
c 
c 
c 
c 
c 

650 


660 


670 


680 


6390 


DUE TO LIMITATIONS IN THE PLOT ROUTINES USED FURTHER ON, THE 
FOLLOWING SETS UP THE RUNGE-KUTTA RESULTS SO THAT EVERY SECOND 
POINT IS PLOTTED IF MORE THAN 1000 POINTS WERE CALCULATED. 


ARAMA HHAHRONHHHHRARHRHHHMRHHHHHHHHRHHHHH AHA RHA 


INCRK=2 

IF(INTYL.LE.999) INCRK=1 
NPRK=1 

NORK=1 

CONTINUE 

YRK (NPRK)=AMPLRK (NORK) 
TPRK (NPRK) =TRK (NORK ) 

VPRK (NPRK) =Y¥RK (NDRK) 
NPRK=NPRK*1 
NORK=NDRK+INCRK 
IF(NORK.GE.INTVL) GO TO 660 
Go TO §6S0O 

CONTINUE 

TF(INCRK.£&0.1) GO TO 670 
COUNT=DFLOAT(INTYL) 
INC=COUNT/2.0 
DELINC=COUNT/2.0-DFLOAT(INC) 
IF(DELINC.EO.O) GO TO 680 
CONTINUE 

YRK(NPRK) =OMPLRK(INTVL >) 
TPRK(NPRK)=TRK(INTVL) 
VPRK(NPRK)=VRK(INTVL) 

GO TO 690 

CONTINUE 

NPRK=NPRK-1 

NORK=NORK- INCRK 

CONTINUE 


CHPPHHHHHHAHARHHAHAAHAHHHHAMHMHAHHHHHHMHRHHMRH AHHH RARE 


c 
c 
c 
c 


PLOTTING THE SOLUTIONS CONSULT THE WRITEUP ON CGPL/CGPL2 AND 
THE MANUAL ON DIGITAL PLOTTING FOR DETAILS 


CHHHHHHHHHHHHHHHHHHHHAH MHA OO OH tO 


ND=NPRK 

NF=1 

CALL CGPL2(TPRK,YRK,ND,NF,S,HAD,HBO,HCD,VAD, ¥BO,VCD,ALPHDO) 
ND=NPP 

CALL CGPL2(TPP,YP,NO,2,1,HAD0,HBD,HCD,VAD,VBD,VCD,ALPHD) 
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661 
662 
663 
664 
66S 
666 
667 
668 
66S 
670 
671 
672 
673 
674 
675 
676 
677 
878 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
68s 
630 
6gi 
692 
633 
694 
635 
6396 
637 
698 
699 
700 
7oO1 
702 
7O3 
704 
7Os 
706 
707 
708 
70s 
F190 
mut 
712 
TS 
714 
715 
716 
Tied 
718 
yi) 
720 
aan 
722 
723 
728 
725 
726 
Wan 
728 
729 
730 
731 
732 
733 
734 
7358 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
7871 
752 
783 
754 
735 
7S6 
7S7 
758 
753 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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700 


710 


NF=a 


CALL CGPL2(XAD,YA80,2,NF,%,HA0,HBD,HCO, VAD, VBD, VCD, ALPHD) 


HA=HAD 

HC=HCD 

VA=VAD 

vc=vcD 

IPLOT=0 

CONTINUE 
STARTX=(HC-6.3)/2.90 
STARTY=VC+0.5 

HORIZ=SHA 

VERT=VC+O0.5 

CALL PLOT(HORIZ, WERT,3) 
HORIZ=khKC 

CALL PLOT(HORIZ,VERT,2) 
VERT=VERT+4.2 

CALL PLOT(HORIZ, VERT, 2) 
HORIZ=HA 

CALL PLOT(HORIZ, VERT, 2) 
VERT=VC+O.5 

CALL PLOT(HORIZ, VERT, 2) 
HORI Z=STARTX4#2.0 
VERT=STARTY+3.8 


CALL SYMBOL(HORIZ,VERT,O©O. 


HORIZ=STARTX+2.4 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZESTARTK+2.8 


CALL NUMBER(HORIZ, VERT,O. 


HORIZ=STARTX+0.2 
VERT=STARTY+3.1 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZ=SSTARTX+0.4 


CALL SYMBOL(HORIZ, VERT,O. 


HORIZ=SSTARTX+1.0 
VERT=STARTY+2.8 


CALL SYMBOL(HORIZ,VERT.O. 


HORIZ=STARTX+4.2 


CALL NUMBER(HORIZ, VERT,O. 


HORIZ=ESTARTX*O.2 
VERTSSTARTY+2.4 


CALL SYMBOL(HORIZ,YVERT,O. 


HGRIZ=SSTARTX*+0 .4 


CALL SYMBOL(HORIZ, VERT,O. 


HORIZ=SSTARTX*4.0 


CALL NUMBER(HORIZ, VERT,O. 


HORIZSSTARTX+0.2 
VERT=STORTY+1.6 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZ=STARTX+1.6 


CALL NUMBER(HORIZ, VERT,O. 


HORIZ=SSTARTX+3.5 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZSSTARTX*+3.525 
VERT=SSTARTY+1.39 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZ=STARTX*+4.9 
VERT=STARTY+1.6 


CALL NUMBER(HORIZ,VERT,O. 


HORIZ=STARTX+0O.3 
VERT=STARTY+0.7 

CALL PEOTCHORIZ, VERT, 3) 
HORIZ=STARTK*+O.8 

CALL PLOT(HORIZ,VERT,2) 
HORIZ=STARTXH+1.0 
VERT=STARTY+0.6 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZSSTARTX+0.6 
VERT=STARTY+0.3 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZSSTARTX+1.0 
VERT=STARTY+0.2 


CALL SYMBOL(HORIZ,VERT,O. 
IF(IPLOT.NE.O) GO TO 710 


NF=0 


CALL CGPL2(XAD,YO0,2,NF,4,HAD,HBD,HCD,VAD,VBD,VCD,ALPHD) 


NDZNPRK 
NF=1 


CALL CGPL2(YRK,VPRK,NO,NF,5,HAP,HBP,HCP,VAP,VBP,VCP,ALPHP) 


ND=NPP 


CALL CGPL2(YP,VPP,NO,2,1,HAP,HBP,HCP,VAP,VBP,VCP,ALPHP) 


NF=4 


CALL CGPL2(XAPH, YAPH,2,NF,4,HAP,HBP,HCP,VAP,VBP,VCP,ALPHP) 


NFs=4 


CALL CGPL2(XAPV,YAPYV,2,NF,4,HAP,HBP,HCP,VAP,VBP,VCP,ALPHP) 


HA=0.0 
HC=HCP 
VA=VAP 
vco=vcP 
IPLOT=1 
GO TO 700 
CONTINUE 
NF=O 


CALL CGPL2(XAPV,YAPV,2,NF,%4,HAP,HBP,HCP, VAP, VBP,VCP,ALPVP) 


STOP 
END 


THE FOLLOWING SUBROUTINE 
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CALCULATES THE SIGN OF A QUANTITY. 
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771 
772 
773 
774 
778 
776 
UL TET 
778 
7793 
780 
781 
782 
783 
784 
785 
786 
787 
788 
783 
790 
791 
782 
733 
794 
7395 
796 
737 
798 
7393 
800 
801 
862 
803 
804 
sos 
806 
807 
808 
80s 
810 
8ii 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
8420 
841 
342 
843 
B44 
84s 
845 
847 
848 
849 
8so 
8Si 
852 
883 
asa 
8s5 
856 
857 
858 
as9 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
88O 


SUBROUTINE SIG(X,SGN) 
IMPLICIT REAL®8&8 (A-H,0-2) 
IF(OABS(X).LT.1.00-08) GO TO 8060 
SGN=X/DABS (Xx) 
GO TO 810 

800 CONTINUE 


SGN=O.DO0 
810 CONTINUE 
RETURN 
END 
c 
c 
c 
Elda d deh dededadddehtudadatedediddud ddd dddudedodudodadudaddaddededdeddddddadsdddddodd dake LAA 
c 
c THE FOLLOWING PROGRAM TESTS FOR THE DEGREE OF DAMPING 
c (UNDERDAMPING, CRITICAL DAMPING, OR OVERDAMPING) ANO THEN 
c CALCULATES THE CORRESPONDING OAMPED ANGULAR FREQUENCY. 
c 
LT ditt Ma Ashes dedsded id rdedshededshshedehsdsdadatedadudededudsdedodededededdeduddeddudddadddeded ddeddddcdddadddadddeddcd 


SUBROUTINE DAMP(N, PSTAR) 

IMPLICIT REAL=& (A-H,O0-Z) 

REAL*8 N 

SQ2B1.0-N822 

CALL SIG(SO,SGNSQ) 
IF(SGNSO.GE.1.00-08) PSTAR=O0SORT(SQ) 
IF (DABS(SGNSO).LT.1.00-08) PSTAR#1.0 
IF (SGNSOQ.LE.-1.00-08) PSTARZDSORT(-SOQ) 
RETURN 

END 


leet h ded d dh Mate hdd did de dededad dda dedadd Ad deded hdd Add ddd ddd ds dadededeted ded kekededkedsdeddodaded 


c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE DISPLACEMENT AT THE ENDO 
c OF THE SEGMENT BEING EXAMINED. 
(= 
Eh had dated dated dstdsdd ded duhdudshdeduded ddd dddedadeded dedsddededadedsded Ad ddad ddakedded Added deddadededad 
SUBROUTINE OISPL(XO,XDOTO,N,DELTAT,P,DELTAX) 
IMPLICIT REAL*8& (A-H,0-2) 
REAL*8 N 
Cisxo 
C2=(N*XO+XDOTO) /P 
TE hd Aided dd hadsdedthedstedehidadd dudididsdedadddeddaddidedadedededsdedsdahsdidedod deddeded Adcddaddedudeddedededsdudedaded 


c 
c TESTING FOR THE DEGREE OF OAMPING OF THE LINEAR APPROXIMATION. IF 
c UNDERDAMPED, THE PROGRAM MOVES TO STEP 300. IF THERE IS CRITICAL 
c OAMPING, IT GOES TO STEP 3910. FOR OVEROAMPING, THE PROGRAM 

c CONTINUES AT STEP $20. 

c 

c 


heh Retede hdd dA ddd dhs dideda ds dahd deeded dadiideh Add k daha dedidad duds dadadadadsddeddadedsdsdadadsdededadedadedadMeded 
SO=1.0-N2®22 
IF(SQO.GE.1.0D-08) GO TO 3900 
IF (ODABS(SQ).LT.1.00-08) GO TO 910 


IF(SQ.LE.-1.00-08) GO TO 320 
300 CONTINUE 
DELTAX=OEXP(-N*DELTAT)*®(Ci*O0COS(P2D0ELTAT)+C2*OSIN(P*OELTAT) )-xXO 


GO TO 330 
910 CONTINUE 
DELTAXSOHEXP(-P¥OELTAT)*#(XO+(N#XO+XDO0TO)*FOELTAT) -xXO 
GG TO 330 
$20 CONTINUE 
DELTAX=DEXP(-N*OELTAT)*(C1*O0COSH(P*OELTAT)+C2*OSINH(P*OELTAT))-xXO 
$30 CONTINUE 
RETURN 
END 


& St -AE AEA MID MODE HEH AOD HE OP EAE AEP EO AP AP BE tO EOP EOE A At OY HPO OY HOA OOP EE HY et 


c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE VELOCITY AT THE END OF THE 
c SEGMENT BEING EXAMINED. 
c 
ee ee he Ah hdd he ddd deed dedi ded dehs thi dedsdadededsdadededadedidediddeds dhe deeded dedi Mehedadedadadad 
SUBROUTINE SPEED(X0,XDO0TO,N,DELTAT,P,xXDOT1) 
IMPLICIT REAL*®8 (A-H,O-2) 
REAL#8 N 
et Ae A Ae Ahad hhh haa hs Reda hahidesdsstatetaedsdhsdahsdahsdsdsdadsdedstetsdededsMadededsdstetadaieesddadshedadedsdetsdadededadaded 


c 
c TESTING FOR THE DEGREE OF DAMPING OF THE LINEAR APPROXIMATION. Neha 
c UNDERDAMPED, THE PROGRAM MOVES TO STEP 1000. If THERE TS CRITICAL 
c DAMPING, IT GOES TO STEP 1010 FOR OVERDAMPING, THE PROGRAM 

c CONTINUES AT STEP 1030. 

c 

c 


PELL LE Add ddd dh dad eddedededsdadidedededadsdsdaddedsdededadedadedidedadedededadadsdidededededededadedid: Aededidedad demoed ded 
SQO=1.0-N¥2#2 
IF(SQO.GE.1.00-08) GO TO 1000 
IF (O0ABS(SO).LT.1.00-08) GO TO 1010 
IF(SO.LE.=1 00-08) GO TO 1020 
1000 CONTINUE 
cC1=xO0Q0TO 
C2=-N*(N®XO+KXDOTO) /P-P*#XO 
MOOTISOEXP(-N*DELTAT)*(C1*0COS(P*DELTAT)+C2*O0SIN(P*OELTAT) ) 
GO TO 1030 
1010 CONTINUE 
XDOTISDEXP(-P*DELTAT)#®(-P*XO+(N®XO+XDOTO)*#(1,0-P*DELTAT) ) 
GO TO 1030 
1020 CONTINUE 
C1=xXDOTO 
C2=-N*(N*XO+KDOTO) /P+P#KO 
XDOTI=OEXP(-N#OELTAT)*(C1*O0COSH(P*#DELTAT)+C2*0SINH(P*DELTAT ) ) 
1030 CONTINUE 
RETURN 
END 


c 
c 
c 
CHHHH AHHH HHH HM HO OHO OHOHH Dt O 
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884 
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887 
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830 
8s1 
832 
833 
894 
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896 
8s7 
898 
ass 
900 
$01 
302 
303 
soa 
305 
906 
307 
$08 
sos9 
$10 
si 
912 
$13 
314 
$15 
916 
917 
$18 
31s 
320 
$21 
322 
$23 
$24 
325 
926 
327 
328 
$29 
330 
9331 
932 
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934 
335 
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940 
$41 
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3s3 
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963 
964 
s65 
366 


END OF FILE 


THE FOLLOWING SUBROUTINE CALCULATES THE TIME INTERVAL REQUIRED TO 
REACH ZERO VELOCITY (1. E., A PEAK OR TROUGH ON THE DISPLACEMENT- 
TIME CURVE) BY USING A NEWTON-RAPHSON METHOD. 


aqannoann 


Leeda Medi sMatsdatadahsddatahathiatehdacsdedatsthsdadehedadsdsdahshadadehadshetiehshaadsRatsdadehudadahehshedsdodedshetadatahedadahedahadadal 
SUBROUTINE TIME(XO,XDOTO,DELT,N,P,OTIME) 
IMPLICIT REAL*8 (A-H,O-2) 
REAL#8 N 
DELTA=DELT+0.05 
ot EA A ddd hadidahsdahedsdaheddadetedshededehadehedadadahahehedshedatedatadshebadetadadihededededidehadidudeddadedadidshatadedededstadadel 


c 
c TESTING FOR THE OEGREE OF DAMPING GF THE LINEAR APPROXIMATION. IF 
c UNDERDAMPED, THE PROGRAM MOVES TO STEP 1100. IF THERE IS CRITICAL 
c DAMPING, IT GOES TO STEP 1120. FOR QVERDAMPING, THE PROGRAM 

c CONTINUES AT STEP 1140. 

c 

c 


ada MiatedhateaatedaMatatathataathedisthataatedeedatesdataahatedadsdatedshahatidehadidhihetchedsdahadedshshadsdadadsAatsRadstedadahitstadehedstadedided 
SOZ1,.O0°NR#2 
IF(SO.GE.1.060-08) GO TO 1100 
IF(OABS(SQ).LT.1.00°08) GO TO 1120 
IF(SQO.LE.°1.0D-08) GO TO 1140 
ED A ihe ha A hahadsdatesdadahehehahadedadedhehdedihededidadehihdedadshedadsdehadhshethidadadhitetsdahehehihidehediededshadahedeaedihedadadad 
c 


c FeMAIN FUNCTION (VELOCITY) 
c FPSF-PRIME (ACCELERATION) 
c 


CHHHLOMH HER HHH MHRHRHHAEREHHAHEREHAEAHAARAR AHHH MOREE HAH 
1100 CONTINUE 
CisxoaTo 
C2=-N2(NEXO+KDOTO) /P-P2XO 
C3=2-NsCi+P#C2 
C&z-PzCi-NeC2 
1110 CONTINUE 
FEOEXP( -NeOELTA)*®(C1I*OCOS(P*O0ELTA)*CZ*DSIN(P*OELTA) ) 
FRPSOEXP(-N*SO0ELTO)*#(C3I*OCOS(P#ODELTA)+C&sO0SIN(P*OELTA) ) 
DELTAIZDELTA-F/FP 
DIFFSOELTAI-DELTA 
IF (DABS(DIFF).LT.1.00-08) GO TO 11606 
DELTA=DELTA!1 
Go TO 1110 
1120 CONTINUE 
Fe-PtxXO+(NXO+XOO0TO)*(1.0-P20ELTA) 
FP=Pe(PeKxo-(NFXO+XD00TO)*#(2.0°-P*0ELTA)) 
1130 CONTINUE 
DELTAISOELTA-F/FP 
DOIFFSOELTAI-OELTA 
IF(DASS(DIFF) .LT.1.00-08) GO TO 1160 
DELTASDELTA! 
GO TO 1130 
1180 CONTINUE 
Ci=xDOToO 
C2=-N2(N*®KXO+XDOTO) /P+P2XO 
C3=-M*C1i+Ps#C2 
C&=ePeCi-nec2 
1150 CONTINUE 
FEOEXP( -NFOELTA)*(C1*#O0COSH(P*OELTA)+C2*®OSINH(P*DELTA) ) 
FPZOEXP(-N*OELTA)* (C32 0COSH(PSOELTA)+C4*0SINH(P*OELTA) ) 
DELTAISOELTA-F/FP 
OIFFSOELTAI-OELTA 
IF (DABS (DIFF) -LT.1.00-08) GO TO 1160 
DELTASOELTAI 
GO TG 1150 
1160 CONTINUE 
OTIME=OELTA 


RETURN 
ENO 
c 
c 
c 
te ee A eee Ad hhh hd heheh dedihe Abeta dadetehshshsdadsthsdstatedetasdadsdadhidadedsAsdsetsdededsdeetadstistedadstadedsdataded 
c 
c THE FOLLOWING SUBROUTINE CONTAINS THE DIFFERENTIAL EQUATIONS TO BE 
c SOLVED BY DOVERK: THE INSTANTANEOUS VELOCITY AND THE ORIGINAL 
c EQUATION. 
c 
c 


EE LA A, hohe dadahahadadadhedeRachcchatadhsthadsdadadadhadadatadatatstadhadastatadehathststadethsAatetsdahididstatehadatideedstadsheditedetedadudatel 
SUBROUTINE FCN(N,X,Y,YPRIME) 
IMPLICIT REAL#8 (A-H,O0-2) 
REAL®8&8 MU 
REAL*8 Y(N),YPRIME(N),X 
COMMON MU 


YPRIME(1)=Y(2) 

YPRIME(2)=- (MU*(Y(1)#*2-1.0)#YPRIME(1)+Y(1)) 
RETURN 

ENO 
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Cz 
c= PROGRAM MATHIEU 
cs 
Cx 
Cz 
Cx THE FOLLOWING PROGRAM CALCULATES THE INTEGRAL ORDER SOLUTION 
cz FOR THE MATHIEU EQUATION: 
cz 
Cz Y(DOUBLE-PRIME)+(A-22028C0S (242) )tY=0 
Cz 
cs OBTAINED BY PIECEWISE LINEARIZATION USING CHORDS 
Cz 
Cz 
Cz THE RESULTS ARE BASED ON THE STANDARD FORM: 
cz 
ce YEALPHA®COS(P22)+B8ETAFSIN(P#Z) 
c= 
Cz PESORT(A-2802COS (2372) } 
Cz 
[oye 3 
Cx THE CHARACTERISTIC NUMBER, A, IS FOUND BY MAKING AN INITIAL 
Cz GUESS ANDO FINOING THE CLOSEST VALUE (EITHER ODD OR EVEN 
cs ORDER) USING & METHOO OF CONTINUED FRACTIONS, DESCRIBED 
cz FURTHER ON. 
Gz 
Cz 
cz THE PROGRAM ALSO CALCULATES THE APPROPRIATE MATHIEU FUNCTIONS 
cz USING A SERIES APPROXIMATION, AS WELL AS A RUNGE-KUTTA 
ce SOLUTION USING FIFTH- AND SIXTH-ORDER METHOOS ALL THREE 
cs RESULTS ARE PLOTTED. 
cz 
Ce este eer re tees eS Ee eT ezre gE SsSETEETESES STEEL AAT Tease srerzresexcerexeszrxrs 
c 
c 
c 
c 
¢ 
c 
c 
c 
c 
c 
IMPLICIT REAL#& (A-H,0-2) 
EXTERNAL FCN 
REAL=8&8 Y(2),C(24) ,W(2,20) 
REAL=&8 LOW, LOWOUT MID ,MIDOUT 
REAL#®8&8 RATIO1!/100) ,RATIQ2(100) COEFF( 100) ,T( 1000) 
REAL=4 AMPLP( 1000) , AMPLS (1000) , AMPLRK( 1000) ,2/ 1000) 
REAL®4 YP(1000) ,ZP(1000) ,YRK( 1000), ZPRK( 1000) 
REAL=4 HO,HB,HC,VA,VB,VC 
REAL®=4&4 XA(2),YA(2) 


INTEGER*4 ALPH(20) 


COMMON 
COMMON 
COMMON 


/CALC/AIN,DISPLO,OIFF,AQUT,IPAR 
/CHAR/L 
/PBRAM/O 


a 
z 
z 
z 
z 
z 
= 
z 
Pd 
z 
z 
x 
x 
= 
= 
z 
= 
+ 
z 
z 
z 
x 
2 
2 
x 
2 
= 
z 
x 
z 
z 
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O=S AME 
OISPLO 
VO=INI 
TOFINI 
OELTA= 
H=NUMB 
FOR 


HO,HC= 


VC=PLO 


ea 


Xa, YR= 


NANANNDNANNANNANNHANANNNNNANANNANNANANNANNHA 


READ(S 
10 FORMAT 
READ(S 
20 FORMAT 
READ(S 
30 FORMAT 
REAO(S 
40 FORMAT 
READ(S5 
SO FORMAT 
READ(S 
6O FORMAT 
READ(S 
70 FORMAT 
READ(S 
8O FORMAT 
READ(S 
90 FORMAT 


READ(S, 


100 FORMAT 


AGUESS=INITIAL GUESS FOR CHORACTERISTIC NUMBER 


AS IN EQUATION 
=INITIAL AMPLITUDE 
TIAL VELOCITY 
TIAL TIME 


INCREMENT/DECREMENT FOR A (USED IN SCAN PHASE) 


THE FOLLOWING VALUES ARE READ FROM DATA FILE MATHIEUDATA: 


ER OF DIVISIONS OF PI (AN INTEGRAL MULTIPLE OF SO.0, USED 


FINOING INCREMENT OF PI: 


PLOT PARAMETERS FOR HORIZONTAL AXIS (HC AN INTEGRAL 


OF 10.0) 


T PORAMETER FOR VERTICAL AXIS (AN INTEGRAL MULTIPLE OF 12 


CO GIVING BEST RESULTS) 


PORAMETERS FOR PLOTTING ZERO LINE 


ALPH=ARRAY FOR PLOT AXIS LABELS 


10) AGUESS,O 


{ 2:DiMiOe 65) 
pe OD USIP MOP v0.7 2:6 
(3010.6) 
eo OF mD CiLenar or 
CZ. 45) 
, 40) HA, HC 
(2F10.4) 
,So0O) ve 
(FI10.4) 
7 BO) RAM ty 
(FIO 4) 
Aaa NAPE NAMES |) 
C2F 105.45) 
eR UME TMT OLE ey 
(1204) 
AP OR AEP MAT flue ey Oi 
(44) 
(OOS CALI Ata) ole 77620.) 
(424) 
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MULTIPLE 


Atte wnaKHnHHHK HHH ee HHH RH HHH eH HHH KER HHH HHH HHH HHH HHH HH eee ee 


CHP HHH OHHH AMMEN 


c 
c OELTAZ 
c 
c 


= INCREMENT OF Z (SINCE SOLUTIONS ARE PERIODIC 
OR 2*PI) 


TiN EACH ERS Pat 


CHAP HIH HHRMA HHAHMHRH AHHH HHH HEHE HME HHH MH 
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OELTAZ=PI/H 
TR ddd deh Ade el Added Add ddd ddd ded ded dk dededdedededededadedededededededededededddededededdddedsdedcdedetadededed 


c 

c THE FOLLOWING ARE USED AS PROGRAM FLAGS FOR CALEULATING EITHER THE 
c OOD OR EVEN INTEGRAL ORDER CHARACTERISTIC NUMBERS. THE OOD OWE 1S 
c FOUND FIRST OND THEN THE EVEN 

c 

c IPAR=FLAG FOR DETERMINING ORDER ("O"“ INDICATES ODDO, “1" EVEN) 

c IT=COUNTER FOR DETERMINING HOW MANY TIMES THE SET OF CALCULATIONS 

c HOVE BEEN DONE ("1" MEANS THE 00D ORDER VALUE IS BEING FOUND, 

c rant Ht Se Vie el 

c 

CRRA HN UR AHHT HE EH HHH ARE EEA HRA OHH ee 


IPAR=O 
I21 
CHHRHRHAHHHAHHRPREHRHHHHHHEHHRAHOHHHRARA ER ROHHAHENHHAHR HHH RR 
c 
c THE EQUATION PARAMETERS ARE WRITTEN INTO OUTPUT FILE MATHIEUNUM 
c 
Ee ee eA dd Ad Ld added dd dod deddodadd 
WRITE( 10,110) 
110 FORMAT( ‘1’, ‘RESULTS FOR THE EQUATION: ’) 
WRITE( 10,120) 
120 FORMAT(’O’ ,’Y(DOUBLE-PRIME)+(A-2208C0S(2227))*#Y20")} 
WRITE( 10,130) DISPLO,VO 


130) FORMAT 204, *¥ (0) 2" | 1X, 620. 102x, “VY CRPRIME) (0) 2” | 1X, 620. 1:6) 
WRITE(10,1460) AGUESS,9O 
1480 FORMAT( ‘0’ ,‘A(GUESS)=’,1X,620.10,2x,'O=’,1X,620.10) 


Te ed A Add dA dd dd Ad Add A ded dod ddeddedaddsdedadedededsMedadhdedkedaded 


THE FOLLOWING SECTION (ENDING AT STEP 450) CALCULATES THE 
CHARACTERISTIC NUMBER FOR 4 GIVEN AGUESS AND ©, BASED UPON THE 
INITIAL DISPLACEMENT AND THE PROXIMITY OF AGUESS TO THE 
APPROPRIATE ODD ANO EVEN ORDER RESULTS. 


INITIALLY, & RANGE OF VALUES BETWEEN WHICH THE FINAL RESULT FOR 
THE PARTICULAR ORDER IN QUESTION LIES IS FOUND (STEPS 160 TO 300) 
THIS IS DONE BY EITHER JINCREMENTING OR DECREMENTING AGUESS BY 2& 
FIXED AMOUNT UNTIL THE LIMITS ARE FOUNO, WITH THE DIRECTION OF THE 
SEARCH (EITHER ABOVE OR BELOW AGUESS) DEPENOING UPON THE OUTPUT 
VALUE FROM & SET OF RECURRENCE RELATIONS USING AGUESS AS THE 
INPUT. 


ONCE THE BOUNOS ARE KNOWN, THE PROGRAM FOCUSES TO THE FINAL RESULT 
BY INTERVAL HALVING (STEPS 3060 TO 350) HERE YTHE OIRECTION IS 
OETERMININED BY THE OUTPUT VALUE FROM THE SAME RECURRENCE RELATIONS 
USING THE FIRST MIDPOINT AS THE INITIAL INPUT 


ONCE THE CHARACTERISTIC NUMBERS FOR THE OOD AND EVEN ORDERS HAVE 
BEEN FOUND, THE ONE CLOSEST TO AGUESS IS THE YALUE THAT IS USED 
IN CALCULATING THE SOLUTION 


AINE INPUT VALUE FOR RECURRENCE RELATIONS 
RECURS=SUBROUTINE FOR RECURRENCE RELATIONS 
OIFFSOIFFERENCE BETWEEN AIN AND OUTPUT VALUE 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
i 
c 
c 
c 
c 
c 
c 
iS, 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
C#*NOTE®2IF AT ANY POINT THE INPUT AND GUTPUT VALUES ARE NEARLY EQUAL, 
c THE SEARCH FOR THE UPPER AND LOWER LIMITS OR YHE FOCUSING PHASE 
c STOPS, THE VALUE FOR IPAR IS FOUND (WHICH DETERMINES THE 
c PERICOO)}, AND THE OUTPUT VWALUE TAKEN AS THE FINAL RESULT. 
c 
CHHABRA HHHARAHHRHARH ARH HERE 
150 CONTINUE 

AIN=AGUESS 

CALL RECUR 

IF(ODABS(DIFF).LE.1.00-08) GO TO 410 
Crete wernt HHH HH THH HNN HAHH HMMA KAKO HAH He 


c 
S THE FOLLOWING CONSIDERS & POSITIVE INPUT VALUE FOR THE 

c CHARACTERISTIC NUMBER (STEPS 160 TO 230) 

is 

c AOUT=OUTPUT VALUE FROM RECUR 

c UP=SUPPER LIMIT 

c LOW=LOWER LIMIT 

[= 

c 

[e 1 AOUT POSITIVE 

c 

c IF AIN IS GREATER THAN AOUT (SEE STEP 180), GIN 1S DECREMENTED AND 
c B NEW AOUT CALCULATED (SHOULD AIN BECOME LESS THAN ZERO, THE 

c PROGRAM CONTINUES AT STEP 230) IF AIN IS GREATER THAN AOUT, THE 
c PROGRAM GOES TO STEP 190 IF ABOUT IS POSITIVE, THE PPROGRAM 

c RETURNS TO STEP 180 LF AUN SUS LESS MLHAN AGUT OR TR. AN oS 

c GREATER THAN AOUT ‘AOQUT BEING NEGATIVE), STEP 200 1S NEXT THE 

c LOWER BOUND IS THE CURRENT AIN, THE UPPER LIMIT THE PREVIOUS ONE, 
c AND THE PROGRAM MOVES TO STEP 300 

c 

c IF AIN 1S LESS THAN AODUT, AIN IS INCREMENTED AND A NEW ADOUT FOUND 
c UNTIL QIN 1S GREATER THAN AOUT (STARTING AT STEP 210, RETURNING 

c TOS ePeeeo LF (NOT) THE UPPER BOUND IS THE CURRENT AIN AND THE 
c LOWER THE PREVIOUS ONE. THE PROGRAM THEN MOVES TO STEP 300 TO 

c BEGIN THE FINAL SET OF ITERATIONS 

G 

c 

te 2 AOUT NEGATIVE 

c 

c BIN 1S DECREMENTED (STARTING AT STEP 220) AND & NEW ADUT IS FOUND 
c UNTIL AOUT BECOMES POSITIVE, THE PROGRAM CONTINUING OT STEP 170 

c TF) AOUT WS STILE NEGATIVE, IT GOES BACK To SiTEP 220 IF AIN GETS 
c LESS THAN ZERO, THE PROGRAM GOES TO STEP 230 

iS 

CHE PHHHRHHHAHHHHHRHNHHAMERRHH OHARA HR HH OHHH HHH 


IF(AIN.LE.O.00) GO TO 230 
160 CONTINUE 

TEMA Ue wiser nOr DION GO eT: One 22)c. 
170 CONTINUE 


238 
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180 


190 


200 


210 


220 


IF(AIN.LE.AOUT) GO TO 210 


CONTINUE 

AINZAIN-DELTA 

IF(AIN.LE.O.D0) GO TO 230 

CALL RECUR 
IF(DABS(OIFF).LE.1.00-08) GO TO 410 
IF(AIN.GT.AQUT) GO TO 190 

GO TO 200 

CONTINUE 

IF(AQUT.GT.O.DO) GO TO 180 

CONTINUE 

UPSAIN*DELTA 

LOWZSAIN . 
GO TO 300 


CONTINUE 

AINEAIN*+DELTA 

CALL RECUR 

IF (DABS(DIFF).LE.1.00-08) GO TO 410 
IF(AIN.LE.AOUT) GO TO 210 

UPSAIN 

LOWSAIN-GELTA 

GO TO 300 


CONTINUE 

AINZSAIN-DELTA 

IF(AIN.LE.@.B0) GO TO 230 

CALL RECUR 
IF(DABS(OIFF).LE.1.00-08) GO TO 410 
IF(AOQUT.GT.9.00) GO TO 170 

Go TG 220 


Eh hh hhh hadi dehehddehdedidehedededeh Added duddedddeddiddddedddddedaddedddd ddd 4k 1 
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230 


240 


250 


260 


270 


280 


290 


THE FOLLOWING APPLIES FOR A NEGATIVE AIN (STEPS 230 TO 300). 


1. AOUT NEGATIVE 


IF AIN IS LESS THAN SOUT (STARTING AT SETP 250), AIN IS 
INCREMENTED ANDO O NEW AOUT FOUND, THE PROGRAM GOING TO STEP 160 
FOR & POSITIVE VALUE OF AIN. IF AIN IS LESS THAN AOUT, THE 
PROGRAM MOVES TO STEP 260. IF AGUT IS STILL NEGATIVE, THE NEXT 
1S TO STEP 270. THE UPPER LIMIT IS THE CURRENT AIN AND THE 
LOWER THE PREVIOUS ONE. THE FINAL STAGE THEN STARTS AT STEP 
300. 


IF AIN IS GREATER THAN AOUT, AIN IS DECREMENTED (STARTING AT STEP 
260) AND A NEW AGUT FOUND UNTIL AIN IS LESS THAN AOUT, THE PROGRAM 
RETURNING TO STEP 280 IF ROT. THE UPPER LIMIT IS THE PREVIOUS AIN 
SND THE LOWER THE CURRENT ONE. STEP 300 IS NEXT. 


2. AOQUT POSITIVE . 


STARTING AT STEP 290, AIN IS INCREMENTED AND A NOW AOUT IS FOUND 
UNTIL AOUT IS NEGATIVE, THEN MOVING TO STEP 240 AND CONTINUING 
FROM THERE. IF AOUT REMAINS POSITIVE, THE PROGRAM RETURNS TO STEP 
290. SHOULD AIN BECOME POSITIVE, THE PROGRAM MOVES TO STEP 260. 


| hhh heheh dhsdedeh Ads detedadedshadeddehededsdahehed ded dsdeddedAdeddrdd dada dad dd dedd A Adda Add AAA 


CONTINUE 
IF (AOUT.GT.©O.DO) GO TO 290 
CONTINUE 
IF(AIN.GT.AOUT) GO TO 280 
CONTINUE 


AINSAIN+DELTA 
IF(QIN.GT.O.DO) GO TO 160 
CALL RECUR 
IF(DABS(DIFF).LE.1.0D-08) GO TO 410 
IF(AIN.LE.AGUT) GO TO 260 
GO TO 270 

CONTINUE 

TF (AOUT.LE.0.00) GO TO 250 
CONTINUE 

UP=AIN 

LOWZSAIN-DELTA 

GO TO 300 


CONTINUE 

DINZAIN-DELTA 

CALL RECUR 
IF(OABS(OIFF).LE.1.00-08) GO TO 410 
IF(AIN.GT.AOUT) GO TO 280 
UP=A4IN+DELTA 

LOW=AIN 

GO TO 300 


CONTINUE 

AIN=AIN+DELTA 

IF(AIN.GT.0.00) GO TO 160 

CALL RECUR 
IF(DABS(DIFF).LE.1.00-08) GO TO 410 
IF(AOUT.LE.90.00) GO TO 240 

GO TO 290 
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¢ 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


300 


THE FOLLOWING SECTION IS THE FINAL SET OF ITERATIONS TO FIND THE 
CHARACTERISTIC NUMBER BY USING INTERVAL HALVING. 


MID=INTERVAL MIDPOINT (AVERAGE OF UP AND LOW) 
MIDOUT=OQUTPUT FROM RECUR USING MID AS INPUT 


BASICALLY, IF MID IS GREATER THAN MIDOUT, MID BECOMES THE NEW 
UPPER LIMIT, ANO IF LESS THAN MIDOUT, THE NEW LOWER BOUND 


HEHAHHAORHHHHHAAHHHMAHHHAHHMHHHHHHHHHHHHAHAHAHHHRHARH HHH 


CONTINUE 
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MID=(UP+LOW)/2.0 
AIN=MID0 
CALL RECUR 
IF(OABS(DOIFF).LE.1.0D-08) GO TO 350 
MIDOUTSAOUT 
IF(MID.LE.0O.DO) GO TO 330 
IF(MIDOUT.LE.0.DO0) GO TO 320 
IF(MIO.LE.MIDOUT) GO TO 320 

310 CONTINUE 
UP=MID 
GO TO 300 

320 CONTINUE 
LOWsMID 
GO TG 360 

330 CONTINUE 
IF(MIDOUT.LE.O.DO) GO TO 3480 
GO TO 320 

340 CONTINUE 
IF(MID.LE.MIDOUT) GO TO 320 
GO TO 310 

tL Adhd ded did dd dededd dehed Added dsddedideheddudededadedsdsdsdedodeded ddd ddd Ad dcddkdd dA 


FROM STEPS 350 TO 390, THE PROGRAM DETERMINES IF 8GTH THE OOD AND 
EVEN ORDER SOLUTIONS HAVE BEEN CALCULATED, ANDO THEN WRITING OUT 
THE APPROPRIATE VALUES INTO OUTPUT FILE MATHIEUNUM GNCE THIS HAD 
BEEN DONE. 


c 
c 
c 
c 
is} 
= 
c AGDOZO000 GROER CHARACTERISTIC NUMBER 
is AEVENZEVEN OROER NUMBER 
€ 
ee hk ee heed ted ddd dded ddd ddd du dddduded Aeddsddededdddedadidudedsdedidedrdededadadadeded Ad dddedsdeded sa 
380 CONTINUE 
IF(I1.NE.1) GO TG 360 
AGDO=AOQUT 
IPARS1 
122 
GO TO 180 
360 CONTINUE 


AEVEN=AOUT 
WRIYTE(10,370) AGOO, AEVEN 
370 FORMAT(’O*’ ,’A(G00)2#’,1X,G20.10,2xX, ’A(EVEN)=’,1X,G20.10) 
CHHHHHRREHHHHHAHHHHHHERHRAAHE MAMMA eR 
c 
c HERE THE PROGRAM DETERMINES WHICH CHARACTERISTIC NUMBER THAT 
c AGUESS IS CLOSER TO, AGDOD OR AEVEN, AND THEN WRITING INTO 
¢€ MATHIEUNUM THE RESULT, USING THIS VALUE FOR CALCULATING THE 
¢ SOLUTIONS. 
c 
c FACT=FACTOR FOR DETERMINING SOLUTION PERIOD (1.0 IS FOR EVEN GROER 
c ANDO 2.0 FOR ODD) 
is 
ded hdd hd he ddd ddd hed h hd Added daded ddd ddihstshshdadtdsdehshsdsetod dads dedsddetedeadedadodihahediden 


IF(Q000.LE.AEVEN) GO TO 3380 
IF(AGUESS.LE.A000) GO TO 380 ‘ 
GO TO 440 

380 CONTINUE 
IF(AGUESS.LE.AEVEN) GO TO 420 
DIFF 12£000-AGUESS 
OIFF2=24GUESS-AEVEN 
IF(OIFF1.LE.-OIFF2) GO TO 440 
GO TO 420 


390 CONTINUE 
IF(AGUESS.LE.AEVEN) GO TO 400 
Go Ta 420 

800 CONTINUE 
IF(AGUESS.LE.AG0D) GO TO 440 
DIFF 1I2AEVEN-AGUESS 
OIFF2=4GUESS-AOCDD 
IF(DIFF1.GT.DIFF2) GO TO 440 
GO TO 420 

410 CONTINUE 
IF(IPAR.EQ.1) GO TO 440 


420 CONTINUE 
AsAEVEN 
IPAR=1 
FACT=S1.0 
WRITE(10,430) A 
430 FORMAT(‘O’ , ‘CHARACTERISTIC NUMBER (EVEN ORDER)=’,1X,G620.10) 
GO TO 460 
840 CONTINUE 


A=A000 
FacT=2.0 
IPAR=O 
WRITE(10,450) A 
450 FORMAT(’O’ , ‘CHARACTERISTIC NUMBER (00D ORDER)=’,1X,G20.10) 


CW MM HO MH MOD OP OE OPO AT OEHHA tt OE HOOD HOD HOY HOH tO OO 
STEPS 460 TO 500 ARE THE PIECEWISE LINEAR SOLUTION. 


c 
c 
c 
c AMPLPZARRAY FOR PIECEWISE LINEAR DISPLACEMENT 
c BIGP=LARGEST VALUE FOR AMPLP (TO BE USED FOR PLOT SCALING) 
c Z=ARRAY FOR INSTANTANEOUS NORMALIZED VALUES FOR 2 
c XO=INITIAL DISPLACEMENT OF LINEAR SEGMENT 

c XPO=INITIAL VELOCITY OF LINE 

c NPOINT=NUMBER OF DATA POINTS (USED FOR PLOTTING) 

c 
c 


PHRMA AHHRAHRHAHMAARAAM MMA MRAM M HRM 
460 CONTINUE 

AMPLP(1)=OISPLO 

BIGP=DABS(DISPLO) 

Z(1)=Z0/P1 

Ti1)2=20 

KO=OISPLO 

XPO=VO 

NPOINT=FACT*#H 
CHHHHHHHHHHHHHHHHMHHHHHHHHHHHMAHHHHHAHH HHH 


c 
c IK=COUNTER FOR FILLING REMAINING ELEMENTS OF AMPLP AND 2 
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44) 

442 
4&3 
444 
44s 
446 
4a7 
488 
4ag 
450 
4$1 

482 
453 
454 
4ss 
486 
&s7 
488 
4ss 
460 
461i 

862 
463 
464 
465 
466 
467 
468 
46s 
470 
471 

472 
473 
a74 
475 
476 
a77 
478 
4793 
480 
481 
482 
483 
484 
485 
4286 
48a7 
4368 
48s 
430 
491 

4392 
433 
494 
495 
496 
497 
498 
499g 
500 
501 

502 
$so3 
504 
505 
SO6 
507 
soé 
503 
510 
Sand 

$12 
$13 
514 
515 
516 
S17 
5138 
ut) 
520 
$21 
$22 
$23 
524 
S25 
S26 
S27 
$23 
$29 
$30 
531 
$32 
$33 
$34 
535 
536 
Sat 
$38 
539 
$40 
$41 
542 
$43 
544 
S45 
S46 
S47 
548 
549 
ss0 


c PSO=SQUARE OF ANGULAR FREQUENCY OF APPROXIMATED 

c XEFINAL DISPLACEMENT OF LINEAR SEGMENT 

c XPSFINAL LINE VELOCITY 

c 

c 

c IF PSO IS POSITIVE, THE SOLUTION IS OF THE FAMILIAR TRIGONOMETRIC 

ts FORM. IF ZERO, THE SOLUTION IS LINEAR (STEP 470) AND IF NEGATIVE, 
c HYPERBOLIC (STEP 480). 

c 

Se ee Add hdd ddd dk dodd dedidadedadddidededehuddedadetehadadedehah 


00 S00 121,NPOINT 


IPsI¢i 
PSQ=EA-2.08O0*80C0S((2.020FLOAT(I)-1.0)*0ELTAZ) 
IF(PSQO.LT.-1,.00-10) GO TO 480 


IF (DABS(PSQ).LE.1.00-10) GO TO 470 
PEOSORT (PSO) 
XSKXO20COS(P*OELTAZ)+(XPO/P)*0SIN(P2DELTAZ) 
XP=-P2KXOeOSIN(P*DELTAZ)+XPO20COS(P*DELTAZ) 
Go To 480 
470 CONTINUE 
KEXPOSODELTAZ+KO 
XP=XPO 
GO TO 490 
88O CONTINUE 
P=S=OSORT(-PSO) 
KEXOsDCOSH(P*OELTAZ)+(XPO/P)*O0SINH(PSO0ELTAZ) 
XPZPeXOZO0SINH(PTDELTAZ)+XPO*OCOSH(PFDELTAZ) 
490 CONTINUE 
AMPLP( IP) =X 
Z(IP)SOFLOAT(1)*0ELTAZ/PI 
TE A eh AAA hd Ahhh hed shehatsdedadedsdadedsdedatedistdhitadshetasdadatehedated 
is 


¢ TZDOUBLE-PRECISION ARRAY FOR Z (TO BE USED FOR FINOING SERIES 
c APPROXIMATION) 
is 


ddd ddd ddd dd dhhsd Aaddedadadedstsdistedadetsiedadshadedataiated 
T(IP)SOFLOAT(1)*0ELTAZ 
xXO=X 
XPO=XP 
1F(DABS(X).GT.BIGP) BIGP#0ABS(Xx) 
500 CONTINUE 
CHW HM HH OH «MOP HOP OD AEE EW A HE HOO OP AE OE EOE OE DEO HOO a OE OOO ODO OO OA OS HE HO Oe 


THE FOLLOWING CALCULATES THE COEFFICIENTS GF THE SERIES 
APPROXIMATION. USING THE METHOD DESCRIBED BY E.L. INCE IN 
"TABLES OF THE ELLIPTIC CYLINDER FUNCTIONS" (PROC ROY. soc. 
EDINBURGH, VOL. S2, P. 355-423, 1932) AND N.W. MCLACHLAN IN 
“THEORY AND APPLICATION OF MATHIEU FUNCTIONS”, CH aby dda FHT Atle 5 
OXFORO UNIVERSITY PRESS, 1947 


c 
c 
c 
c 
c 
c 
c 
c 
c IR1TSCOUNTER FOR CALCULATING PRELIMINARY COEFFICIENT RATIOS 

c GAMMA=FACTOR USED FOR CALCULATING CONTINUED FRACTIONS USED FOR 
c ABOVE 

c 

c 

c 

Cc 

c 

c 

c 

c 

c 


FOR & NON-ZERO INITIAL DISPLACEMENT AND AN EVEN ORDER 
CHARACTERISTIC NUMBER, THE PROGRAM MOVES TO STEP 510. FOR A ZERG 
INITIAL DISPLACEMENT AND EVEN ORDER, THE CALCULATIONS START AT 
STEP 5 7¢6- FOR NON-ZERO INITIAL DISPLACEMENT ANDO OCOD ORDER, THE 
ITERATIONS BEGIN AT STEP S8O. FOR GOO ORDER AND ZERO 
OISPLACEMENT, STEP 600 IS WHERE THE PROGRAM CONTINUES. 


PLA AL A AA ddd he hedodadcdadadededadhcdadhadadsRedaAeBadsRadod ada dadkedhstededadadadatededadedathadade RededadstatateadetedidedsRsahededated 

IR1228 
GAMMA=0.0 
I1F((OISPLO.NE.0.0).AND.(IPAR.EQ.1)) GO TQ S10 
IF((DISPLO.EO0.0.0).AND.(IPAR.EQ.1)) GO TO 570 
1F((DISPLO.NE.0.0).ANO.(IPAR.EO.0)) GO TO $80 
Go TO 600 

ot RPP PORTE ee A ddd ddd tedsdadadetahshehedededadehedadedaadatudel 


THE CASE OF NON-ZERO INITIAL DISPLACEMENT ANDO EVEN ORDER. 


c 

c 

c 

c RATIGOZRATIO BETWEEN COEFFICIENT FOR SPECIFIC TERM AND ONE FOR 
c PREVIOUS TERM 

c SUM-TERM USED IN SUMMING SQUARES OF VARIOUS RATIO VALUES 

c IEND=COUNTER USED IN CALCULATING VARIOUS VALUES FOR RATIO 

c 
c 


PEEL EA LLL LL AAA A dededcdeksdadakidhRedshadatadstadataRadeedatatedsdadadadshadsdadedsdeatidaetetetithatsdMatetideedststededshaiudel 
510 CONTINUE 


RATIO1(1)2A/9 
RATIO1(2)=(A-4.0)/Q-2.0/RATIOI(1) 
SUM=2.0 

IEND=2 


oe Ee EAL A LAA A Aid ek hi dshadhetdohatahadshadatedsthaRatadatedesceatatatadatatadsdatadeststetsdatidedeanetedstsdehsteisddadeted 
THE CONTINUED FRACTION FOR CALCULATING RATIO. 


c 
c 
c 
c I1STAR=COUNTER USED FOR RATIOI 
c 
CHHHHHHHAHEHHHHHMMHHMHHHHHHHHHHHHHMHRAAHRAHHHMHAHAHRHH NTH 
$20 CONTINUE 

T1ISTAR=IR1 

IF((DISPLO.E90.0.0).AND.(1PAR.EQO.1)) IISTAR=IR1-1 

RATION(I1STAR)=Q/(A-(2.080FLOAT(IR1))**2-Q*GAMMA) 


GAMMA=RATION(IISTAR) 
IR1=IR1-1 


IF(IR1.E90.I1END) GO TO 530 


Go TO S520 
CMM DEE HEI IPE HEE HEHEHE EAHA OY 


c 

c RATIO2Z=RATIO BETWEEN COEFFICIENT FOR SPECIFIC TERM AND COEFFICIENT 
c FOR PREVIOUS ONE 

c IR2, 12STARSCOUNTERS FOR RATIO2 
c 
c 


HHHAHHHHAHHHHAHHHHAHAHHHRHHHHHAMHH AMMAR HHA 
$30 CONTINUE 
RATIO2(1)=RATION(1) 
DO 540 IR2=1,23 
T2STAR=IR2+1 
RATIO2(12STAR)=RATIO2(IR2Z2)*RATIOI(I2STAR) 
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ssi 
$52 
553 
$54 
sss 
SS6 
S57 
558 
559 
560 
S61 
562 
$63 
S64 
sés 
S66 
S67 
S68 
s69 
s70 
$71 
572 
S73 
s74 
s75 
s76 
vr hes 
s78 
$73 
$80 
$81 
$82 
$83 
$84 
58s 
S86 
587 
583 
589g 
53930 
$91 
532 
533 
594 
s3s 
S96 
597 
$38 
5s9 
600 
601 
602 
$03 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
6193 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
688 
659 
660 


540 CONTINUE 
th A dd hdede ded dd dd ddedd dd dddod dd dd deddiddedsdedudedodudedsdadd ddd LO LLL LL 


BY SUMMING OLL THE VARIOUS VALUES FOR RATIOZ2, AND INVERTING THRE 
SOUARE ROOT, THE VALUE FOR THE FIRST COEFFICIENT IS DETERMINED AND 
SUBSEQUENTLY, ALL THE REMAINING ONES. 


c 
c 
c 
c 
c 
c COEFF=ARRAY FOR COEFFICIENT VALUES 
c 1C1,I1C2=COUNTERS FOR COEFF 
c 
CHHMHHAHHAHHHHHAOHEHEHRHHHRHENHEHHHHRHNRHHHH RRM HMMM 

IR1224 

DO S550 1S=1,IRi 

SUMESUM*+RATIO2Z( 1S) 222 

SSO CONTINUE 

COEFF(1)2#1.0/0SORT(SUM) 

O96 S60 1C121,IR1 

IC2sI1Ci+1 

COEFF (IC2)2COEFF(1)SRATIO2Z(IC1) 

S60 CONTINUE 

GO TO 610 
TD ddd ddd ddd dd daddahed dedadsdsdadedsdadeded Adedadededdadadsddoudadededadadodeheded ded ded td td thd Aka od 
c 


c INITIALIZING THE CALCULATIONS FOR THE SITUATION OF ZERO INITIAL 
is ANO EVEN ORDER. 
c 


EE ddd ddd ddd dedededideddidididedhedaddaddadadeddsduddedededdededdadddeddeddsdddcddd dd ded ddddkd kad 
570 CONTINUE 
RATIO1(1)2(2-4.0)/9 
SuUM=1.0 
ITENO21 
IR1=258 
Go To $20 
teh hdd ddd dd ddddddaddduddededed ddeddidededdedaded ddd dedd ded dddedAded td atta 
c 
c SETTING UP THE CASE OF NON-ZERO DISPLACEMENT AND ODO ORDER. 
c 
td Ad ddd dd ddad did deddduddededed ded dd ddidsduddededadedsdedrddeddcdddedoddedededd dade dededddedededadked daddies 
S860 CONTINUE 
RATIOI(1)2#(A-1.0°90)/9 
SUMez1.0 
IEND=1 
590 CONTINUE 
RATIO1(IR1)£O/(A-(2.080FLOAT(IR1)+1.0)2#2-02GAMMA) 
GAMMAZRATION(IR1) 
IR1SIR1I-1 
IF(IR1.EO.1ENO) GG TS §30 
GO TO 5306 
tT Ltd ddd ddadaddaddedidedahudaddadiduhededsdedededdededsdededadadedadsdedededadedadaddudded dddedid ddd ddedddedd ddd 
c 
c THE SITUATION OF ZERO INITIAL DISPLACEMENT AND GOD ORDER. 
c 
ee ed ddd dd ddd dd ddd ddd dodadadadudedededadedededededededededsdededaddedededededadededadedededed 
600 CONTINUE 
RATIO1(1)=(A-1.049)/9 
SUM=1.0 
IENO=1 
Go To s90 
ote Ld hdd ddd dd dadddadededudadedededadedsdeded dedededrdededadededededededadedudeddeddpdededadedadsdehaddedadadededededededed 


c 
c THE SECTION FROM STEP 610 TO STEP 650 IS THE SERIES APPROXIMATION 
c THAT IS DESCRIBED IN INCE ANDO MCLACHLAN. 
c 
c BIGSSLARGEST VALUE FOR SERIES AMPLITUDE (FOR PLOT SCALING) 
c 
C # WH DWH WA AY HE EMO AO ME SP OA AO HAYA EAPO BY AAO tH OO 
610 CONTINUE 
BIGS=DABS(DISPLO) 


NPOINT=FACT#H+1.0 
CM MM OM HOHE RODD HOF BE BY HF HD BAD HEHE AE OE AEE HE OE HEHE AOE OP OF HD AO AH Oa HOO OO Oe 


INITIALIZING THE CALCULATIONS OF THE SERIES TERMS. 


c 
c 
c 
c DENOM=ZSUMMATION OF SERIES COEFFICIENTS (FOR NON-ZERO INITIAL 

c DISPLACEMENTS) OR COEFFICIENTS AND TERM NUMBER (FOR ZERO 

c INITIAL DISPLACEMENTS) USED IN DETERMINING MATHIEU FUNCTION 
c COEFFICIENT FOR COMPLETE SOLUTION 

c TERM=SUM OF INOIVIOUAL TERMS FOR MATHIEU FUNCTION APPROXIMATION 

(¢; 
c 


DE hh heath A dadstesdsdhadestsMadhatesMedidstestadedsdhedaadeadadsdateadisMatadsthehsAadeadesdcisdadadsdstsMatsdadsMedhsaditedadsdadsdedtadededadadad 
00 650 J=1,NPOINT 
ODENOM=0.0 
TERM=0.0 
IF(DISPLO.E9.0.0) GO TO 630 
CH MH WH MM A HO OH OO OOH OE AOD POH ATP OAE OHO AOA OOP OA OO 


c 

& RESULTS FOR NON-ZERO INITIAL DISPLACEMENT 

c 

c THETASTERM NUMBER 

c 

Oe ee ee ee Rk eh Baten da ded dette had sdshadsdededsMadatedsdatetadeidsdetsdedaahededsMehsdedsdsdadsdadadeeitedetsedadadadadad 
00 620 K=1,25 
IF(IPAR.EO.0) THETAS2.0*0FLOAT(K)-1.0 
IF(IPOR.EO.1) THETA=2.O0*0FLOATI(K)-2.0 


DENOM=OENOM+COEFF (K) 
TERM=TERM+COEFF (K)*O0COS(THETA*T(J)) 
620 CONTINUE 
ee Ee LE EAL AA AA A AA Ahh hihasdihshdataidtedsssdedsdsdsdidesdadeetedstehsdsdamehidshsdsschsdiemamehsns meee 


c 

c AMPLS=ORRAY FOR INSTANTANEOUS AMPLITUDE FOR SERIES SOLUTION 
c DISPLS=OOUBLE-PRECISION VALUE OF AMPLS 

c 


CHAP HHHHHHHHHHHHAHHHHHHHAHAHMHMHAHHHHMHHMHPHARA HAMM 
AMPLS(J)=OISPLO+TERM/DENOM 
DISPLS=OBLE(AMPLS(J)) 
IF(DABS(DISPLS).GT.BIGS) BIGS=DABS(DISPLS) 
GO TO 650 
630 CONTINUE 
CM HEME OOM OOOH EOE EID OOOO OOOO Oot 


c 
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661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
874 
675 
676 
677 
678 
679 
630 
681 
682 
683 
684 
6as 
686 
687 
688 
689 
690 
691 
632 
693 
694 
635 
696 
697 
698 
639 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709s 
710 
wat 
Tie 
713 
718 
7158 
TS 
tee 
718 
TiS 
720 
721 
722 
723 
724 
725 
726 
ete 
728 
723 
730 
731 
732 
UES 
734 
735 
736 
737 
738 
7393 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
Su 
732 
783 
734 
785 
756 
7s7 
758 
789 
760 
TAT 
762 
763 
764 
765 
766 
WAV 7p 
768 
769 
770 


c CALCULATIONS FOR ZERO INITIAL DISPLACEMENT. 
c 
Eh hdd A ddedeh dedsdeddadededddedududddidadadeddudehedededadadedehehehehsdedededededadededededdedadododadadeddadadedededaded 
00 640 K21,25 
IF(IPAR.E0.0) THETA=2.O#0FLOAT(K)-1.0 
IF(IPAR.EQ.1) THETA=2.0#FLOAT(K) 
OENOM=OENOM+THETA* COEFF (K) 
TERM2 TERM+COEFF(K)*OSIN( THETA*®T( J) ) 
640 CONTINUE 
AMPLS(J)2VO2TERM/DENOM 
OISPLS=OBLE(AMPLS(J)) 
IF(DABS(DISPLS).GT.BIGS) BIGS=O0ABS(DISPLS) 
650 CONTINUE 
TEE ha ddd dehdeddsdeded Adidehshehaheddodadsheheddedshehedshsdehadadadihadhedededaded dedehidsdadedsddsdedadadadehehedededadadehel 


THE SECTION ENDING AT STEP 6§60 IS THE RUNGE-KUTTA SOLUTION. 


Cc 
(s 
c 
c 
c 
c THE FOLLOWING ARE PARAMETERS FOR THE RUNGE-KUTTA ROUTINE. 
c CONSULT THE IMSL MANUAL ON “DYERK" FOR FURTHER DETAILS. 
c 
tT Ee Lhd dd ddd Added dad ded dah A dedid dedidededdudrdedadededsdededededsdededadedededadedededadadedsdedadedadadededededededoded 

NPOINT=FACT#H+1.0 

BIGRK=DABS(DISPLO) 

Y(1)S0I1SPLO 

Y(2)2vV0 

ZRKEZO 

NEON=E2 

NWE2 

TOL=1.00-12 

IND=1 

ZENDSOELTAZ 

DO 660 K2#1i,NPOINT 

AMPLRK(K)=Y(1) 

CALL DVERK(NEON,FCN,ZRK,Y,ZENO,TOL,IND,C,NW,W, IER) 
Eh A hdd Added Ade dd ded Adds ddd dadadaddededededededshehedetedsdadahedodahedodabedehsdedsdedadetedadadedesdedadededetedadedaded 
c 


¢ INCREMENTING ZEND. 

Cc 

ot Adah had deds ded AedededdadshehshedsdadsdoddatetahedudahededadsheadadahehedshadebadedshedhedahadsdedadedsdeRsdahadadededstadadetedadedadod 
ZENDSZENO+DEL TAZ 
IF(DABS(Y(1)).GT.BIGRK) BIGRK=Y(1) 


660 CONTINUE 
CHHHHHHHRHHAHHHHEHHAHMHHHHEREURA RHE HAAARAR RM HOHRAOH AHR RHR HMR 
c 
c WRITING THE SOLUTIONS INTO OUTPUT FILE MATHIEUNUM. 

c 
CHEB HHHRHHRAHEHEHRAEHHHAAOMHHERHHERHAHRRRRHAHAHEAKRRARRAHAORHARHM RAHM 
WRITE(10,670) 
670 FORMAT(‘0O’,11x,‘Z’,13X, ‘PIECEWISE LINEARIZATION’,2X, ‘SERIES APPROX 
1IMATION’ , 8X. ’RUNGE-KUTTQA’ ) 
DO 690 L=1,NPOINT 
WRITE(10,680) Z(L),AMPLP(L),AMPLS(L),AMPLRK(L) 

680 FORMAT(1X,4(G20.10,4X)) 

690 CONTINUE 
CHHHAHAHHHHHHHHAHHMH HAHAHAHA ARH ESHA H AHHH 


c 

c THE NEXT FEW LINES ARE USED IN FINALIZING ALL THE PLOT PARAMETERS 
c WHICH INCLUDES AXIS SCALING. 

c 

OE Eke Adah Aataehstsda et shateehetstadadsdidadadehadadahsthshateedadsditatsthsasthatath stsdethethstathstadststedatedstedshedsdadstaiedeedadel 


INC=HC 
XA(2)SZ(NPOINT)-0.005 
BIG=BIGRK 
IF((BIGP.GT.BIGS).ANO.(BIGP.GT.BIGRK)) BIG=BiGP 
IF((BIGS.GT.BIGP).AND.(BIGS.GT.BIGRK)) BIG=BIGS 
M=1 
IF(BIG,LE.1.0) GO TO 710° 

700 CONTINUE 
OEC=81G/(10.0*=*m) 
TFUOEC: LE. 1.10) Go To 730 
M=M+1 
GO TO 700 

710 CONTINUE 
O1G=B81G*(10.0==mM) 
IF(DIG.GE.1.0) GO TO 720 
MsM+1 
GO TO 710 

720 CONTINUE 
DEC=01G/10.0 
M=-(M-1) 

730 CONTINUE 
IF(DEC.LE.0.125) VFACT=0.125 
IF((PEC.GT.0.125).AND.(DEC.LE.0.28)) VFACTS0. 25 
IF((DEC.GT.0.25).QND.(DEC.LE.0.5)) VFACT=0.5 
IF((DEC.GT.0.5).AND.(OEC.LE.1.0)) VFACT#1.0 
SFACT=VC/10.0 
VA=-VFACT*SFACT#10.0*2M 
DENSVC/(2.0*SFACT) 
VB=(VFACT/DEN)*10.0%2M 
HB=Z(NPOINT)/DFLOAT( INC) 

PTE LALLA A ddd dd dddidcdddsdiddcdedadedcdedsdatedsdedadaRededsdedsdadidadsdedsdodedadedad 


THE FOLLOWING SECTION SETS UP THE PIECEWISE LINEAR AND RUNGE-KUTTA 
RESULTS SO THAT 26 POINTS OF THE PIECEWISE SOLUTION ANDO 27 OF THE 

RUNGE-KUTTA VALUES ARE PLOTTED FOR A CLEARER REPRESENTATION, WITH 

THE PLOTS BEING ALTERNATED FOR COMPARISON PURPOSES 


YPSARRAY FOR PLOTTED PIECEWISE LINEAR DISPLACEMENTS 
ZP=ARRAY FOR PLOTTED PIECEWISE LINEAR Z VALUES 
YRK=ARRAY FOR PLOTTED RUNGE-KUTTA DISPLACEMENTS 
ZPRK=ARRAY FOR PLOTTED RUNGE-KUTTA Z VALUES 


nonnanannannn 


Cx*NOTE*+THE NUMBER OF POINTS TO BE PLOTTED MUST NOT EXCEED 1000 


c 
CHHHHHHHHHHHAHHHHHHHHHHH AHHH RAPHE AH 


INCR=ENPOINT/25 
INCRRK=INCR/2 
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Teh 
772 
Talis 
774 
wea 
776 
77 
778 
779 
780 
oa 
782 
783 
784 
78s 
786 
Ve 
788 
789 
730 
791 
732 
793 
794 
795 
796 
737 
798 
7939 
800 
801 
802 
803 
304 
805s 
806 
807 
808 
sos 
810 
g8i1 
812 
813 
814 
815 
816 
817 
818 
813 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
645 
846 
847 
848 
843 
850 
esi 
852 
853 
854 
sss 
856 
8S7 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
B74 
875 
876 
877 
878 
873 
880 


740 


750 


760 


770 


780 


NPP=1 

NPRK=1 

NOP=1 

NORK=1 

CONTINUE 
YP(NPP)SAMPLP( NDP) 
ZP(NPP)=Z(NOP) 


IF(NDP.EQ.NPOINT) GO TO 750 


NPP=NPP+1 

NOP=NOP+INCR 

GO To 740 

CONTINUE 

YRK (NPRK ) ZAMPLRK (NDRK ) 
ZPRK (NPRK)=Z(NORK) 
IF(NORK.EQ.1) GO TO 760 
NORK=NORK+INCR 

Go TO 770 

CONTINUE 
NORK=ENORK+INCRRK 
CONTINUE 


IF(NORK.GYT.NPOINT) GO TO 780 


NPRKENPRK+1 

GO To 780 

CONTINUE 

NPRK=ENPRK+1 

YRK (NPRK) ZQMPLRK (NPOINT 
ZPRK(NPRK)SZ(NPOINT) 


) 


ee ee hdd dd ddd dd ddd Addd dk ddcddd dd Add ddd badd a dad 


c 
c 
c 
c 


PLOTTING THE SOLUTIONS. 


CONSULT THE WRITEUP ON CGPL/CGPL2 AND 
THE MANUAL ON DIGITAL PLOTTING FOR DETAILS. 


EE deh hdd ddd ddd ddd ddd ddd ddd ddd dh dddadsdededd Ad deddedodeddd dada aA Added ddd 


NF 
NDSNPOINT 


CALL CGPL2(Z,AMPLS,NO,NF,5,HA,HB,HC,VA,VB,VYC,ALPH) 


ND=NPP 


CALL CGPL2(ZP,YP,ND,2,1,HA,HB,HC,WA,VB,VC,ALPH) 


NOSNPRK 


CALL CGPL2(ZPRK,YRK,ND,.3,.1,HA,HB,HC,VA,VB,VC,ALPH) 


NF=a 


CALL CGPL2(XA,YA,2,WNF,4,HOA,HB,HC,VA,VB,VC,ALPH) 


HORIZ=4.15 
VERT=-0.475 


CALL SYMBOL (HORIZ, VERT,O.2,163,0.0,-1) 


KORIZ2HA 

VERT=VC+O0.5 

CALL PLOT(HORIZ,VERT,3) 
HORIZ=HC 

CALL PLGOT(RORIZ, VERT ,2) 
VERTEVERT?HS.O 

CALL PLOT(HGORIZ, VERT,2) 
HORIZ=HA 

CALL PLOT(HORIZ, VERT,2) 
VERT=VC+0.5 

CALL PLOT(HORIZ, VERT, 2) 
STARTX=(HO-7.7)/2.0 
STARTY=VC+0.5 
HORIZ*STARTX+O.2 
VERT=STARTY+3.6 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZ=STARTX+5.& 


CALL NUMBER(HORIZ,VERT,O. 


HORIZSSTARTX+0. 2 
VERT=STARTY+*3 .2 


CALL SYMBOL(HORIZ,VERT,©O. 


HORIZ=STARTX+5 .6 


CALL NUMBER(HORIZ, VERT,O. 


HORIZ=STARTX*0.2 
VERT=STARTY+2.8 


CALL SYMBOL(HORIZ,VERT,O. 


HORIZ=STARTX+1.0 


CALL NUMBER(HORIZ, VERT,O. 


HORIZ=STARTX+3.5 
CALL SYMBOL(HORIZ, VERT, 
HORIZ=STARTX+3.7 

CALL SYMBOL (HORIZ, VERT, 
HORIZ=STARTX+4.5 

CALL SYMBOL (HORIZ, VERT, 
HORIZ=STARTX+4.7 

CALL SYMBOL (HORIZ, VERT, 
HORIZ=STARTX+4.9 

CALL NUMBER(HORIZ,VERT, 
HORIZ=STARTX+0.2 
VERT=STARTY+2.0 

CALL SYMBOL (HORIZ,VERT, 
HORTZ=STARTX+1.6 

CALL NUMBER(HORIZ, VERT, 
HORIZ=STARTX+3.5 

CALL SYMBOL (HORIZ,VERT, 
HORIZ=STARTX+3.7 

CALL SYMBOL(HORIZ,VERT, 
HORIZ=STARTX*#+3.9 

CALL SYMBOL(HORIZ, VERT, 
HORIZ=STARTX+*S .1 

CALL NUMBER(HORIZ, VERT, 
HORIZ=STARTX+0O.3 
VERT=STARTY*+1.1 

CALL PLOT(HORIZ, VERT,3 
HORIZ=STARTX+0.8 

CAEL PLOT (CHGRIZ, VERT). 2 
HORIZ=STARTX+1.0 
VERT=STARTY+1.0 

CALL SYMBOL(HORIZ,VERT, 
HORIZ=STARTX+0.6 
VERT=STARTY+0.7 

CALL SYMBOL(HORIZ, VERT 
HORIZ=STARTX+1.0 
VERT=STARTY+0O .6 

CALL SYMBOL‘(HORIZ, VERT 


°. 


°. 


QO. 


°. 


°. 


°. 


QO. 


2, 


2, 


2, 


2, 


2, 


2, 


“CHAR. NUM. (EST. VALUE) 2#’,0.0,25) 


AGUESS,0.0,4) 


“CHAR. NUM. (FINAL VALUE) =’,0.0,26) 


A,9.0,4) 


OC) FO HOO PEN) 
Q,0.0,4) 
52,0.0,-1) 
ge BO Orsi) 
163,0.0,-1) 
97,0.0,-1) 


FOr Oa gnlany 


TOs ea Ozu 9 Bo) 


DISPLO,0.0,4) 
ave On OMtis 


125 OsOpanin 


, SERIES APPROXIMATION’ ,0O.0,20) 


pte ately Si) 


‘PIECEWISE LINEARIZATION’ ,©O.0,23) 
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881 

882 
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884 
88s 
886 
887 
888 
883 
830 
831 

892 
833 
esa 
83s 
896 
837 
838 
ase 
3900 
301 

302 
soz 
$04 
gos 
906 
307 
908 
309 
310 
911 

$12 
913 
314 
915 
si6é 
a7 
918 
313 
$20 
321 

922 
$23 
$24 
$25 
$26 
327 
928 
3239 
$30 
331i 

932 
333 
934 
935 
336 
337 
$38 
933s 
940 
941 

$42 
943 
944 
9458 
946 
947 
$48 
349 
950 
951 

982 
3S$3 
954 
385 
g56 
957 
958 
359 
960 
961 

9362 
963 
964 
g65 
966 
967 
968 
969 
970 
g7i 
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$73 
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975 
976 
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981 
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984 
98S 
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9893 
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MORIZ=STARTK+0.6 

VERTESTARTY*+0O.3 

CALL SYMBOL (HORIZ,VERT,0.2,2,0.0,-1) 
HORIZ=STARTX+1.0 

VERTSSTARTY+0.2 

CALL SYMBOL(HORIZ,VERT,0.2, ‘RUNGE-KUTTA’ ,0.0,11) 
NF=O 

CALL CGPL2(XKA,YA,2,NF,4,HA,HB,HC,VO,VB,VYC,ALPH) 
sTop 

END 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c THE FOLLOWING SUBROUTINE CALCULATES THE GUTPUT VALUE FOR A GUESS 
c FOR THE CHARACTERISTIC NUMBER, USING THE RECURRENCE RELATIONS THAT 
c BRE DESCRIBED IN MCLACHLAN AND INCE. 
c 
That teatetehahahsdetudidsdetudstshtedsdhhehahedahedshedededtetadedadadadedededededededadsdedadadadedided dededededadeddcdedodddeddd 

SUBROUTINE RECUR 

IMPLICIT REAL#&8 (A-H,O-2) 

COMMON/CALC/AIN, DISPLO, DIFF. AOUT, IPAR 

COMMON/PARAM/O 
TE Adhd Adah heheh de dahsdedehddeheted dedodedededededsdeddudddcdddeddadedadiddedidsdedudidedadcddadedededidsddadddedaddeded 


ReCOUNTER FOR THE NUMBER OF ITERATIONS FOR THE PARTICULAR RELATION 
USED 
GAMMARZFACTOR USED IN THE CONTINUED FRACTION (SEE INCE) 


c 

c 

c 

c 

c 

c FOR WON-ZERO INITIAL DISPLACEMENT AND EVEN ORDER, THE PROGRAM 

c MOVES TG STEP 800. FOR ZERO INITIAL DISPLACEMENT OND EVEN ORDER, 
¢ IT GOES TG STEP 820. IF THE ORDER IS OOD AND INITIAL DISPLACEMENT 
is NON-ZERO, IT CONTINUES AT STEP 840, AND IF THE DISPLACEMENT 

c HAPPENS TO BE ZERO, IT GOES TO STEP 860. 

c 

i 


Ahaha A dehiheaeds betcha dahaedstdshedshedsdeddedudedstsdAehadedadedsdahededadadededadshedatadedadahehedsdededodaddadededededededohed 
R=2200.0 
GAMMAR#0.6 
IF((DISPLO.NE.©O.0).AND.(IPAR.EQ.1)) GO TG 800 
IF ((DISPLO.EQ0.0.0).AND.(IPAR.EQO.1)) GO TO 820 
IF((DISPLO.NE.0.0).ANO.(IPAR.EQ.0)) GO TG 840 
GO TO 860 

EA Beh ha hhh dit eedadeh dah dha dedshadehihedededshsded hed dehhehehehedehahedadadehsdadedadstadsdetsdadsdedodsdahededadededededadedad 


THE CASE GF NON-ZERO INITIAL DISPLACEMENT ANDO EVEN ORDER. 


c 
Cc 
c 
c PHIR,OENOMREFACTORS USED IN CALCULATING CONTINUED FRACTION 
c AZVALUE OBTAINED 
c 
lot Ets AahehihedshshadedshshateddendedshadededidadehededehstshedeAsdedshedshededehsdshedsdededdeheddsdadadsdedededededsdsdededededadadededoded 
800 CONTINUE 
PHIR21.0°AIN/(4.08R*22)-GAMMAR 
DENOMRe (O222)/((16.08R22)2(R-1.0)%22) 
GAMMAR* DENOMR/PHIR 
R=R-1.0 
IF(R.EO.1.0) GO TO 810 
GO Ta 8900 
810 CONTINUE 
A=-(9O8t2)/(2.08(1.0-AIN/4.O0-GAMMAR ) ) 
GO TO 870 
ee AR Ahad Reda hed hs hahatedahadshahstshsdidatdadahahehadshedsdadsdehahatshadatatedadetsdadadahedstehededededededshaedatedetedadadededed 
c 
c ZERG INITIAL DISPLACEMENT AND EVEN ORDER. 
c 
Col A Ke Matha tes Maat steatathatatahethihsdatadashidedsdshadedatadedshathsdedatetadatsdsdahedatadsdsdadedaAeshatedededeshetahedadahadadididadadedad 
820 CONTINUE 
PHIR=1.0-AIN/(4.0#R**2)-GAMMAR 


DENOMR= (O82*2)/((16 OF REF2)F(R-1.0) 82) 
GAMMAR=DENOMR/PHIR 
R2R-1.0 


IF(R.EQO.2.0) GO TO 830 
GO TO 820 
830 CONTINUE 
A=4,0-(0#22)/(16.08(1.0-AIN/16.0-GAMMAR ) ) 
GO TO 8706 
Cm MM OM HO MAOH AE AD EAE AEH OO HOF AOA AY PAO OA AO POO AO Ae at 
c 
c THE SITUATION OF GOOD ORDER AND NON-ZERO INITIAL OISPLACEMENT 
c 
CMM HM HO OA OW OE AEE AF HE EOP OA AAA YOY OA 
840 CONTINUE 
PHIR=1.0-AIN/(2.0#R+1.0)**2-GAMMAR 
DENOMR=(04*2)/((4,.0#R®*2-1.0)**2) 
GAMMAR=DENOMR/PHIR 
IF(R.EQ.1.0) GO TO 850 
R=ER-1.0 
GO TO 840 
850 CONTINUE 
A=1,.0+90-GAMMAR 
IF(QO.LT.0.0) Q=DABS(Q) 
GO TO 870 
CHHHHHHHHHHHHHHHHAAMHHHHMHHHRHHHRHHR MHRA 
c 
c THE CASE OF OOD ORDER AND ZERO INITIAL DISPLACEMENT . 
C eAHNUHOKUREAOHHHHHENURHEHOEUHRENEHREDUNEHADNEHAHAROD TREND OOREAN ONIN ONE 
860 CONTINUE 
Q=-9 
GO TO 840 
870 CONTINUE 


AOUT=A4 
CWO HOHE HEH AEH APHID AAO HOY YOO Ha 
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991 
992 
393 
334 
395 
336 
$97 
396 
$39 
1000 
1001 
1002 
1003 
1004 
1005 
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1007 
1008 
1068 
1010 
1011 
16012 
1013 
10714 
1015 
1016 
1017 
END OF FILE 


DIFF=O1FFERENCE BETWEEN INPUT ANO GUTPUT VALUES (USED IN 
TERMINATING ITERATIONS FOR CHARACTERISTIC NUMBER) 


annan 


RHE ARARARHHHARARHHHRRHAHAARHHHRHARHH HEHEHE RHA HAR eR 
OIFFZAIN-A0UT 
RETURN 
ENO 


HHA OHHH AHH HHR HAE EHO AHHH HMMM EMRE RARER HEH 


c 
c 
c 
c 
[ns 
is THE FOLLOWING SUBROUTINE CONTAINS THE DIFFERENTIAL EQUATIONS TO BE 
i SOLVED BY DVERK: THE INSTANTANEOUS VELOCITY AND THE ORIGINAL 
c EQUATION. 
c 
CHEPREHA PERT ARAM HAHAH ORR HAEMAHM HRM RHEH EAH HUH HHH EHH EHH MR 

SUBROUTINE FCN(NEON, ZRK,Y, YPRIME) 

IMPLICIT REAL#8&8 (A-H,O-2Z) 

REAL#8 Y(NEON), YPRIME( NEON) , ZRK 

COMMON/CHAR/A 

COMMON/PARAM/O 

YPRIME(1)2Y(2) 

YPRIME(2)2-(A°2.0298DCOS(2.0*ZRK))*Y(1) 

RETURN 

ERO 
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